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

wzg

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

alin

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

spring

wzg发表于2004-6-16 17:30:00回复：（wzg）如何用lisp写圆直径标注的程序 只画一个圆时，只要取的圆上一点p1，(command \"dimdiameter\" p1 \"\")就可实现标注，但是当圆在某个图纸中占的地方比较小时，用上述命...

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

wzg

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

wzg

(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) 但是在直径标注时，提示未选择到圆? 若是把画矩形的这一行去掉，则能顺利标注

无痕

那就是你选到矩形了

龙龙仔

(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)
)

wzg

谢谢楼上，可以了 (command "_.dimdiameter" (list (entlast) P1) "")
这句该怎样理解，是不是enlast 指圆，p1 指尺寸线的方位 (list (entlast) P1)是什么语法，本人水平有限，望龙龙版主给解释一下，谢谢

wzg

(command "_.dimdiameter" (entlast) P1 "")
如果这样为何不行(去掉list)

龙龙仔

(list (entlast) P1)是什么语法---双元表,在论坛可找到其他说明