Question

cad中，编写一程序，可在任意位置任意方向标写坐标，求大神赐教！！

给我一个正确答案行不？急需

Answer 1

(defun c:kk()
(setq pt(getpoint))
(setq pt1(getpoint pt))
(setq ang(angle pt pt1))
(setq sc 2.0)
(setq pt1(polar pt (+ ang(* pi 0.0)) (* sc 1.0)))
(setq pt2(polar pt (+ ang(* pi 0.5)) (* sc 1.0)))
(setq pt3(polar pt (+ ang(* pi 1.0)) (* sc 1.0)))
(setq pt4(polar pt (+ ang(* pi 1.5)) (* sc 1.0)))
(command "'_style" "HYXYZ" "ËÎÌå" 0 1 0 "N" "N")
(command "pline" pt1 pt3 "")
(command "pline" pt2 pt4 "")
(setq txt1(strcat"X"(rtos(car pt)2 3)))
(setq txt2(strcat"Y"(rtos(cadr pt)2 3)))
(setq pt5(polar pt1 ang (* sc 2.0)))
(setq pt6(polar pt4 (+ ang(* pi 1.5)) (* sc 2.0)))
(command "text" "s" "HYXYZ" "J" "ml" pt5 (* sc 2.4) (angtos ang 0 4) txt1)
(command "text" "s" "HYXYZ" "J" "ml" pt6 (* sc 2.4) (angtos (+ ang(* pi 1.5)) 0 4) txt2)
)

追问

这个用不了，试了几次了。
命令: kk
; 错误: 参数类型错误: point: nil
命令:
命令: kk
; 错误: 参数类型错误: 二维/三维点: nil
命令:
命令: kk
'_style 输入文字样式名或 [?] : HYXYZ
新样式。
指定完整的字体名或字体文件名 (TTF 或 SHX): : ??ì?
字体无法使用

麻烦给修改一下好吗？？？

Answer 2

不是有现成的嘛，这就是传说中的闭门造猪啊。
ZBBZ 、 WZ ~~~~一大堆哦