CAD LISP中如何修改所选对象的单个线型比例，非全局线型比例
答案:2 悬赏:70 手机版
解决时间 2021-02-24 04:26
- 提问者网友：最爱你的唇
- 2021-02-23 23:21
CAD LISP中如何修改所选对象的单个线型比例，非全局线型比例
最佳答案
- 五星知识达人网友：孤独入客枕
- 2021-02-24 00:01
;改为如下即可
(defun c:aa()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (setq ssa (ssget))
(progn
(if (= (setq bl (getreal "\n指定新线型比例 <1.0>:")) nil)
(setq bl 1.0)
)
(command "_change" ssa "" "p" "s" bl "")
)
)
(setvar "cmdecho" cm)
(princ)
)
(defun c:aa()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (setq ssa (ssget))
(progn
(if (= (setq bl (getreal "\n指定新线型比例 <1.0>:")) nil)
(setq bl 1.0)
)
(command "_change" ssa "" "p" "s" bl "")
)
)
(setvar "cmdecho" cm)
(princ)
)
全部回答
- 1楼网友：往事埋风中
- 2021-02-24 00:34
如果要用LISP来完成这个功能，需要从对象群组码上进行修改，不能直接用CHANGE，线型比例的群组码代号为48，在线型比例为1时不显示，使用这个命令进行查看对象的群组码(SETQ en1 (ENTGET (CAR (ENTSEL))))，包括括号在内直接复制到命令栏上执行
还有可以直接从特性工具栏里进行修改（命令properties），何必那么麻烦呢
还有可以直接从特性工具栏里进行修改（命令properties），何必那么麻烦呢
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯