各位幫忙一下！

fend_2000

我的程序哪出错了,灰色（;后串）为问题所在点,帮忙一下，小弟功力尚浅，不知道为何出错？ ;已知：圆心o，同心圆直径d1 d2 d3 ,
;求做：同心圆及中心线,标注,
(defun c:txy (/ o d1 d2 d3 f r1)
(graphscr)
(setvar "cmdecho" 0)
(setq o (getpoint "\nenter center of circle:"))
(initget 7)
(setq d1 (getdist "\nenter the first circle diameter:"))
(setq d2 (getdist "\nenter the second circle diameter:"))
(setq d3 (getdist "\nenter the third circle diameter:"))
(command "layer" "make" "xx" "color" "2" "xx" "")
;(command "layer" "ltype" "continuous" "")
(command "circle" o "d" d1)
(command "circle" o "d" d2)
(command "circle" o "d" d3)
(if (>= d1 d2)
(setq f d1)
(setq f d2)
)
(if (< f d3)
(setq f d3)
)
(command "layer" "make" "center" "color" "1" "center" "")
; (command "layer" "ltype" "center" "")
(setq x (car o))
(setq y (cadr o))
(setq y1 (- y f))
(setq y2 (+ y f))
(setq x1 (- x f))
(setq x2 (+ x f))
(setq p1 (list x y1 ))
(setq p2 (list x y2 ))
(setq p3 (list x1 y ))
(setq p4 (list x2 y ))
(command "line" p1 p2 "")
(command "line" p3 p4 "")
;(command "dimdiameter" d1 "")
(setvar "cmdecho" 1)
(princ)
)

BDYCAD

程序可以运行. 不太了解你要解决的问题目的. 可能你没有在程序加上设计OSSNAP为0 所以有会会出少少的错误吧.

fend_2000

我的程序后面未完成！

fend_2000

编一程：(1)：以O为圆心，D1.D2,D3为直径三同心圆;圆要在xx层;(2)并且画出圆的中心线，中心线在CENTER,线型："center";(3)标注同心圆


　谢谢！

fend_2000

我想要：XX图层线型为"continuous";CENTER图层的线型为“"center".但是程序总是出错

citykunan

(command "layer" "make" "center" "color" "1" "center" "") (command "-linetype" "l" "center" "" "") (command "layer" "ltype" "center" "" "")

fend_2000

如何在一个圆上标注尺寸：( command "dimdiameter " .........),好象有问题。

citykunan

已经回了，看前面的帖子。