求教此程序如何修改才能去掉标注呢???先谢谢各位了.

lohas1118

只画图不想加标注,该如何修改呢.

;;;;;;;本程序为绘制“┗┛”形图
(DEFUN C:rw ()
   (setq ins (getpoint "\n请输入插入点:"))
   (setq w (getdist "\n请输入宽度:"))
(command "layer" "n" "CEN" "c" "3" "cen" "l" "center" "cen" "")
(command "layer" "n" "DIM" "c" "20" "dim" "")
(command "layer" "s" "0" "")
   (setq pt1 (polar ins pi (/ w 2)))
   (setq pt2 (polar ins 0.0 (/ w 2)))
   (setq pt3 (polar pt1 (* pi 1.5) 0.5))
   (setq pt4 (polar pt2 (* pi 1.5) 0.5))
   (setq pt5 (polar ins (* pi 0.5) 3))
   (command "zoom" "c" pt1 "100")
   (command "osmode" "0")
   (command "pline" pt1 pt3 pt4 pt2 "")
   (command "dim1" "hor" pt1 pt2 pt5 "" "chprop" "l" "" "la" "dim" "")
   (command "osmode" "39")
   (command "zoom" "p"))

hao3ren

把这句注释掉;;;(command "dim1" "hor" pt1 pt2 pt5 "" "chprop" "l" "" "la" "dim" "")

52aaa

顶LS的，我建议变量最好都设置为局部变量，不要全局变量，容易异常，不知道是不是有这个一说。。。

CTC

顶

lohas1118

hao3ren 发表于 2012-2-3 17:46
把这句注释掉;;;(command "dim1" "hor" pt1 pt2 pt5 "" "chprop" "l" "" "la" "dim" "")

多谢指点