pb.v@163.com 发表于 2011-7-22 11:41:32

回复 zhynt 的帖子

真是神人呀，我搞了半天也没搞出来，看来没点“含量”是不行了，谢谢大哥了

crazylsp 发表于 2011-7-22 16:53:44

谢谢前辈！

zwqgdhl 发表于 2011-7-24 10:01:11

好程序，下载先

669423907 发表于 2011-8-10 23:32:31

回复 zhynt 的帖子

zhynt大师你好，我也试着换了一程序，但运行不了!
方便帮看看那里有问题？谢谢！

(defun c:p0()
(setq ss (ssget))
(command "pedit" "m" ss "" "" "join" "0.1" "")
(setq pt (getpoint "\n请为调整比例指定一个点:[不调整] "))
(if (/= pt nil)
    (sf pt ss)
)
)
(defun sf (pt ss / alts gr s1 lt newscale)
(vl-load-com)
(setq alts (getvar "LTSCALE"))
(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))))
      (setq lt (cdr (assoc 6 (entget s1))))
      (setq zq (cdr (assoc 40 (tblsearch "ltype" lt))))
      (if (/= zq 0)
      (setq newscale (/ (distance (cadr gr) pt) zq alts 1.0))
      (setq newscale 1)
      )
      (vla-put-LinetypeScale (vlax-ename->vla-object s1) newscale)
    )
)
(redraw)
(princ)
)

戏男 发表于 2011-8-27 21:03:59

真是完美程序

zhuangxu_521 发表于 2011-8-28 19:38:45

只有最后二个可以用

1993063 发表于 2011-9-10 01:13:48

大师出品,必属精品,顶一个

maiko 发表于 2011-9-12 00:05:07

大师出品,必属精品

longer1000 发表于 2012-8-13 17:42:12

收藏了，谢谢！

smartstar 发表于 2012-9-18 12:55:47

这个非常实用！
页: 1 2 3 [4] 5 6
查看完整版本: 按色选择与动态线型比例的完美结合，（作者zhynt大师）