CAD编程求救

小马哥啊 · 发表于 2008-12-1 21:24

用CAD中的VBA编程，实现线段变多段线！
谢谢啊

xxxtttxxx · 发表于 2008-12-2 18:06

这个我以前也考虑过，比较复杂，比如碰到线段的端点不完全重合的时候怎么处理？
误差控制在多少比较合适。

至于其他，不过是获取每个线段的端点坐标，按一定顺序排序，然后根据这个坐标数组
绘制多段线而已。

king20061335 · 发表于 2012-3-29 00:04

pedit命令不就·可以吗？

king20061335 · 发表于 2012-7-15 00:40

这个用VBA作麻烦，用LISP简单搞定
(defun c:pe()
  (setvar "cmdecho" 0)
  (setq sss (ssget))
  (setq n 0)
  (while (< n (sslength sss))
(setq en (ssname sss n))
(setq en_list (entget en))
(setq entype (cdr (assoc 0 en_list)))
(if (= entype "LWPOLYLINE")
   (command "pedit" en "u" "")
   (command "pedit" en "y" "")
) ;_ 结束if
(setq n (1+ n))
  ) ;_ 结束while
  (setq ssa nil)
  (setq ssa (ssget "X" (list (c*** 0 "LWPOLYLINE"))))
  (command "pedit" "m" ssa "" "j" 0.3 "" "")
  (setq sss nil)
  (setq ssa nil)
  (setvar "cmdecho" 1)
  (prin1)
) ;_ 结束defun

keeper1990 · 发表于 2012-7-18 23:25

看看

wulaidexin · 发表于 2012-7-19 00:27

OOOOOOOOOO

[Auto CAD] CAD编程求救