直线转多段线与修改线型比例的结合（已解决）
本帖最后由 669423907 于 2011-8-15 12:16 编辑(defun c:p0(/ ss alts pt gr s1 lt newscale)
;(prompt "\n请选择非Contiiuous线型: ")
(setq ss (ssget))
(command "pedit" "m" ss "" "" "join" "0.1" "")
(setq ss (ssget "X" '((8 . "~4中心线"))) alts (getvar "LTSCALE") pt (getpoint "\n请指定一个点: "))
(while (= (car (setq gr (grread nil 5 0))) 5)
(redraw)(grdraw (cadr gr) pt 1 1)(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (setq lt (cdr (assoc 6 (entget s1))))(progn
(setq zq (cdr (assoc 40 (tblsearch "ltype" lt))))
(if (/= zq 0)
(setq newscale (/ (distance (cadr gr) pt) zq alts 1.))
(setq newscale 1)))
(progn (setq zq (cdr (assoc 40 (tblsearch "ltype"
(cdr (assoc 6
(tblsearch "layer" (cdr (assoc 8 (entget s1))))))))))
(if (/= zq 0)(setq newscale (/ (distance (cadr gr) pt) zq alts 1.))
(setq newscale 1))))
(vla-put-LinetypeScale (vlax-ename->vla-object s1) newscale)))
(redraw)
(princ))
呵呵 我也是新手看不懂帮你顶一下希望高手能出现啊 插件效果如附件gif动态图，只能拖动鼠标改变线型比例！:lol 这个插件如果能单独改变选取的这一根线的线型比例估计会更加实用
页:
[1]