修改线型比例tt

848818376 · 发表于 2012-10-11 16:30:34

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 woaishuijia 于 2012-10-12 09:37 编辑

修改线型比例tt
下面命令时修改线性比例用的LSP文件，快捷键：TT
;; 命令: TT

(defun C:TT (/ E I O SCALE SS)
0 c1 J/ t6 H2 |! g. e3 l6 X* X! ]
(princ "\n作者:小萝卜头 QQ:95818608 Rev 2010.04.11")6 ? B9 I4 ?$ C; N1 D# U3 F4 t
(princ "\n欢迎使用: 修改线型比例 ")
/ D( l4 S" f3 i! N9 a5 I& _6 E6 m
;; (if (setq SS (ssget '((0 . "*LINE,CIRCLE,ARC,ELLIPSE,RAY"))))
7 m' g" ~7 S, e) k* W
(if (setq SS (ssget))
" x$ C( X u- V. |' X
(while (setq SCALE (getreal "\n输入新的比例<退出>:"))
. j+ r+ N5 H9 g8 e4 _: A% ~7 h
(repeat (setq I (sslength SS))
! q$ w9 h+ h4 H1 ~" H0 B! x$ u
(and (setq E (ssname SS (setq I (1- I))))8 W n# ]) E& ]& q
(setq O (vlax-ename->vla-object E))
4 z8 v# B" P. |6 s$ {
(vla-put-linetypescale O SCALE)
3 q8 N/ x: m4 |) j+ z
)6 l( e" `5 S6 {; I8 q5 R6 U/ Z; i3 o
)
5 U/ \( x5 H# i' i; b" d4 R
)- n, u y7 k' X B: U
)
7 B& r4 \& e: @, J" H% Q1 C
(princ)
$ t, {: C! d0 W- s# d* [" ~( x
)

复制代码

此命令运行时会出现错误，请哪位大侠帮忙看看，谢谢

woaishuijia · 发表于 2012-10-12 09:47:15

代码本身并没有错误.只是有一点不合理(本人看法):第六行用 while 函数会导致用户指定了线型比例且程序已经按用户数据做了修改后,再次要求用户输入新的比例,直到用户按下回车.实际上这里用 if 更好一些.

848818376 · 发表于 2012-10-15 09:03:21

老顾：你这样搞复杂了，用change就行。
(defun C:TT (/ ss SCALE)
  (princ "\n欢迎使用: 修改线型比例 ")
  (setq SS (ssget))
  (setq SCALE (getreal "\n输入新的比例<退出>:"))
  (command "change" ss "" "p" "s" scale "")
  (princ)
)

djh1006 · 发表于 2013-11-1 08:11:18

謝謝分享!!

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

通知

[分享] 修改线型比例tt

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块