改线型比例的lsp程序(已解决)

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放大[f],缩小[s],退出[c]"))
   (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
回复 669423907 的帖子

试试这个合不合要求

不错，很强大的功能

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

不错谢谢值得用

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

[em0]

湜１只鱼 · 发表于 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

各种线型可以设置各自的比例吗？

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