使用DIMSCALE命令。
再三思考；是否可以将箭头放置在
行，而不是通过改变我的Lisp程序结束。
哈哈，新手问题？？
谢谢 这是真的，但请不要忘记，通过调整上述系统变量，您将影响更多，而不仅仅是常规。 请调整此部分：
...
;if not - line angle in other direction
) ;_ end of if
(setvar "osmode" 0)
(setq PL (* SC 0.20)
PW (* SC 0.08)) ;set arrowhead width
(setq PT1 (polar EPT ANG1 (/ (- (distance EPT1 EPT2) PL) 2.0)))
(setq PT2 (polar PT1 ANG1 PL))
;set arrowhead length, based on current dimscale
(setvar "osmode" 0)
(command "PLINE" PT1 "W" "0" PW PT2 "") ;draw arrowhead
(setvar "OSMODE" XOSMODE)
...
页:
1
[2]