如何用lisp写圆直径标注的程序

wzg · 发表于 2004-6-16 17:30:00

只画一个圆时，只要取的圆上一点p1，(command "dimdiameter" p1 "")就可实现标注，
但是当圆在某个图纸中占的地方比较小时，用上述命令则提示未选择到圆，只有窗选放大圆，再执行以上命令，才可实现（还有一个问题：p1点只有在45度时才有效，其他角度则不行，？）
不只为何？

alin · 发表于 2004-6-16 20:10:00

我好像没有这些问题，不知你的P1是如何得到的

spring · 发表于 2004-6-16 20:14:00

当圆在某个图纸中占的地方比较小时
是不是抓点的问题，把抓点模式设为无看看

wzg · 发表于 2004-6-16 20:29:00

p1用polar 圆心点角度半径得到

wzg · 发表于 2004-6-16 20:48:00

(defun c:g()
(command "rectang" '(0 0) '(6000 160))
(setq p1 '(0 0))
(command "circle" p1 5)
(setq p2 (polar p1 0 5))
(command "dimdiameter" p2 "" )
)
在上述程序中，先画了一个矩形，再画了一个半径为5的圆，取得圆上一点p1(0 5)
但是在直径标注时，提示未选择到圆?
若是把画矩形的这一行去掉，则能顺利标注

无痕 · 发表于 2004-6-16 22:50:00

那就是你选到矩形了

龙龙仔 · 发表于 2004-6-17 08:51:00

(defun C:G (/ P1)
   (setvar "osmode" 0)
   (command "_.rectang" '(0 0) '(6000 160))
   (command "_.circle" '(0 0) 5)
   (setq P1 '(0 0))
   ;;(setq P1 (polar '(0 0) (* 0.25 pi) 1));点不一定要在圆上
   (command "_.dimdiameter" (list (entlast) P1) "")
   (princ)
)