andyding 发表于 2006-6-14 23:14:00

如何取得一个对象的线型比例？

<P>向各位大侠请教两个问题。</P>
<P>1：如何取得一个对象的线型比例，并转换成实数。</P>
<P>2：我在acad.mns中加入快捷键“&nbsp; <FONT color=#f70909>["K"](setq ot (getvar "ORTHOMODE")) (if (= ot 1)(setvar "ORTHOMODE" 0)) (if (= ot 0)(setvar "ORTHOMODE" 1))</FONT> <FONT color=#ff0000>(princ)</FONT><FONT color=#000000>”</FONT>当执行时总是在命令行中返回一个K，给执行带来不便，请问要怎样才能不返回这个K。</P>

ZZXXQQ 发表于 2006-6-15 16:22:00

1：

(DEFUN C:TEST ()
(IF (SETQ SS (ENTSEL "\nSelect a object :")) (PROGN
(SETQ ENT (ENTGET (CAR SS)))
(PRINC "\n线型比例=")
(PRINC (IF (ASSOC 48 ENT) (CDR (ASSOC 48 ENT)) (GETVAR "LTSCALE")))
))
(PRINC)
)
2、^P(setq ot (getvar "ORTHOMODE")) (if (= ot 1)(setvar "ORTHOMODE" 0)) (if (= ot 0)(setvar "ORTHOMODE" 1)) (princ) ^P

andyding 发表于 2006-6-15 22:44:00

多谢ZZXXQQ大侠！！！多次承蒙你的指点，憾无以为报！

andyding 发表于 2006-6-16 22:58:00

ZZXXQQ大侠，第2项还是不行。
页: [1]
查看完整版本: 如何取得一个对象的线型比例？