求助：关于地层钻孔标注的lisp，有点问题

zuoluo007

我编了一个自动画钻孔的lisp，就是那种地质图上标注钻孔符号，是两个同心圆，两侧各带一个横线，加载这个命令后，在cad上随便点一点，横线未画出来，后来我发现，只有用鼠标滚轮把图拉近，然后再执行这个命令，横线才能画出来了，不知怎么回事，本人刚涉足lisp，还望高手出招。

 

;;画钻孔，以1:2000图为例
;;1:2000比例图中，内圆直径2，外圆直径3.5

(defun c:zk()
  (setq n 2)  ;;设定图纸比例，1:1000 n=1；1:2000 n=2；1:5000 n=5
  (setq pt0 (getpoint "钻孔中心："))
  (command "circle" pt0 (* 1 n))  ;;画内圆
  (setq en1 (entlast))
  (command "bhatch" "P" "solid" "s" en1 "" "")   ;;填充内圆
  (command "circle" pt0 (* 1.75 n))    ;;画外圆
  (setq pt1 (polar pt0 pi (* 1.75 n)))
  (setq pt2 (polar pt1 pi (* 8 n)))
  (setq pt3 (polar pt0 0 (* 1.75 n)))

  (setq pt4 (polar pt3 0 (* 8 n))) 

  (command "line" pt1 pt2 "")    ;;画左侧横线
  (command "line" pt3 pt4 "")    ;;画右侧横线
  (prin1)
)

 

piao1887

捕捉关掉就好了

在开头加上 (setq osmode (getvar "osmode"))

                (setvar "osmode" 0)

 

在末尾加上 (setvar "osmode" osmode)

 

这样就没问题了

xyp1964

2. ;;画钻孔，以1:2000图为例
3. ;;1:2000比例图中，内圆直径2，外圆直径3.5
4. (defun c:tt ()
5.   (setvar "osmode" 0)
6.   (setq n  2 ; 设定图纸比例, 1:1000 n=1；1:2000 n=2；1:5000 n=5
7. l1 (* 1.75 n)
8. l2 (* 4 n)
9.   )
10.   (while (setq pt0 (getpoint "\n钻孔中心<退出>: "))
11.     (command "donut" 0 (* 2 n) pt0 "")
12.     (command "circle" pt0 l1)
13.     (setq pt1 (polar pt0 pi l1))
14.     (setq pt2 (polar pt1 pi l2))
15.     (setq pt3 (polar pt0 0 l1))
16.     (setq pt4 (polar pt3 0 l2))
17.     (command "line" pt1 pt2 "")
18.     (command "line" pt3 pt4 "")
19.   )
20.   (princ)
21. )

;;画钻孔，以1:2000图为例 ;;1:2000比例图中，内圆直径2，外圆直径3.5 (defun c:tt ()   (setvar "osmode" 0)   (setq n  2 ; 设定图纸比例, 1:1000 n=1；1:2000 n=2；1:5000 n=5 l1 (* 1.75 n) l2 (* 4 n)   )   (while (setq pt0 (getpoint "\n钻孔中心<退出>: "))     (command "donut" 0 (* 2 n) pt0 "")     (command "circle" pt0 l1)     (setq pt1 (polar pt0 pi l1))     (setq pt2 (polar pt1 pi l2))     (setq pt3 (polar pt0 0 l1))     (setq pt4 (polar pt3 0 l2))     (command "line" pt1 pt2 "")     (command "line" pt3 pt4 "")   )   (princ) )

zuoluo007

谢谢一楼的piao1887大侠，问题完美解决。

谢谢二楼的xyp1964版主，您修改之后，程序更简洁，且可以连续画钻孔，更高效了，让我理解了while的用法，真羡慕你们呀。