按色选择与动态线型比例的完美结合，（作者zhynt大师）

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

[em0]只有最后二个可以用

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

这个非常实用！

账号		自动登录	找回密码
密码			注册