669423907 发表于 2011-3-30 18:18:59

回复 liu22737 的帖子

谢谢！！如果能改值就更好了！！

lenlenq 发表于 2011-3-30 20:22:25

以前写的

(defun        c:bx (/ en ent sx bl gj gjj)        ;动态改变线形比例
   (setq en (car (entsel "\n请选择要改变线型的图元:")) loop t)
   (if en
   (progn
       (setq ent (entget en))
       (setq sx (cdr (assoc 48 ent)))
       (if (null sx)
       (setq sx 1 )
       )
       (setq bl (getreal (strcat "\n要修改为比例:<"(rtos sx 2 2)">")))
       (if (null bl)
       (while        loop
           (initget 0 "f s c")
           (setq gj (getkword "\n放大,缩小,退出"))
           (if (= gj nil)
             (setq gj gjj)
             (setq gj (read gj))
           )
           (cond ((= gj 'F)
                  (command "change" en "" "p" "s" (setq sx (1+ sx)) "")
               )
               ((= gj 'S)
                  (command "change" en "" "p" "s" (setq sx (- sx 1)) "")
               )
               ((= gj 'C) (setq loop nil))
           )
           (setq gjj gj)
           (princ sx)
       )
       (command "change" en "" "p" "s" bl "")
       )
   )
   )
)

669423907 发表于 2011-3-30 21:01:18

回复 lenlenq 的帖子

谢谢你的热心帮助！
如果按住可以一直动作就更好了！

longer1000 发表于 2011-8-13 14:07:59

liu22737 发表于 2011-3-30 13:25 static/image/common/back.gif
回复 669423907 的帖子

试试这个合不合要求


不错，很强大的功能

戏男 发表于 2011-8-27 20:55:10

不错 谢谢 值得用

zhuangxu_521 发表于 2011-8-30 09:29:26

湜１只鱼 发表于 2011-10-29 08:28:45

哇   很不错的程序我很需要

功夫佬 发表于 2012-5-25 00:07:41

有没有静态自动调整线形比例？

sky-x-x 发表于 2023-10-10 21:42:41

感谢您的分享，终于不需要一个一个的点了

huisguiji 发表于 2024-9-3 17:05:22

各种线型可以设置各自的比例吗？
页: 1 2 [3]
查看完整版本: 改线型比例的lsp程序(已解决)