请帮帮忙

晓雨

请各位高手帮帮忙， (defun c:bia(/ n pt txt pt1 pt2 pt3 pttxt)
(setq n(getint "\n 输入标示零件个数: " )
txt(getstring "\n 输入起始零件序号: " )
pt(getpoint "\n 输入标记线连接点: " )
pt1(list (+ (car pt) 6) (cadr pt))
pttxt(list (+ (car pt) 3) (+ (cadr pt) 2.4))
) (setq cl(getvar "clayer"))
(setq os(getvar "osmode"))
(setvar "clayer" "w文字标注")
(setvar "osmode" 0) (command"line" pt pt1 "")
(command"text" "mc" pttxt 3.5 0 txt)
(repeat (- n 1)
(setq pt2(polar pt1 (/ (* pi 7) 4) 1.4))
(command"line" pt1 pt2 "")
(setq pt3(polar pt2 (/ pi 4) 1.4))
(setq pt4(list (+ (car pt3) 6) (cadr pt3)))
(command"line" pt2 pt3 pt4 "")
(setq pttxt(list (+ (car pt3) 3) (+ (cadr pt) 2.4)))
(setq txt (rtos (+ (atoi txt) 1) 2 0))
(print txt)
(command "text" "MC" pttxt 3.5 0 txt)
(setq pt1 pt4)
)
(setvar "clayer" cl)
(setvar "osmode" os)
)
它只能实现方式1，我想同时实现方式1和方式2，我应该怎么改?

meflying

方式1是什么东西,方式2又是什么东西?说清楚点...

晓雨

噢，真不好意思，好久不见你，想你

晓雨

我的意思是，我只要告诉程序我是想用方式一，还是方式二，然后它选择用哪种方式标。您是这样理解的吗

meflying

如果你选择了跟PT连的那条直线,或许可以根据直线的角度来判断使用方式1还是方式2


做的时候,你最好将方式1或2做成子函数,在主还是只要根据需要调用某一个就可以了

yxp

(command "line" poi
(progn (setvar "osmode" 0)
(princ "\n 退出/<下一点>:")
pause) ;第二点
(progn
(setq qz (entget (entlast))
qpoi (cadr (assoc 10 qz))
zpoi (cadr (assoc 11 qz))
)
(if (< qpoi zpoi)
(strcat "@" (rtos (* zxcd blab) 2 jqab) "<0")
(strcat "@" (rtos (* zxcd blab) 2 jqab) "<180")
)
) ;第三点
""
) 上面是我的程序中的一段,可以实现你的想法,希望对你有所帮助.

yxp

如图

晓雨

(defun c:bia(/ n pt txt pt1 pt2 pt3 pttxt d)
(setq n(getint "\n 输入标示零件个数: " )
txt(getstring "\n 输入起始零件序号: " )
d(getstring "\n 在左还是在右<在左>: ")
pt(getpoint "\n 输入标记线连接点: " )
)
(if(= "r" d)
(setq pt(list (- (car pt) (+ (* 6 n) (* 2 (- n 1)))) (cadr pt)))
)
(setq pt1(list (+ (car pt) 6) (cadr pt))
pttxt(list (+ (car pt) 3) (+ (cadr pt) 2.4))
) (setq cl(getvar "clayer"))
(setq os(getvar "osmode"))
(setvar "clayer" "w文字标注")
(setvar "osmode" 0) (command"line" pt pt1 "")
(command"text" "mc" pttxt 3.5 0 txt)
(repeat (- n 1)
(setq pt2(polar pt1 (/ (* pi 7) 4) 1.41421))
(command"line" pt1 pt2 "")
(setq pt3(polar pt2 (/ pi 4) 1.41421))
(setq pt4(list (+ (car pt3) 6) (cadr pt3)))
(command"line" pt2 pt3 pt4 "")
(setq pttxt(list (+ (car pt3) 3) (+ (cadr pt) 2.4)))
(setq txt (rtos (+ (atoi txt) 1) 2 0))
(print txt)
(command "text" "MC" pttxt 3.5 0 txt)
(setq pt1 pt4)
)
(setvar "clayer" cl)
(setvar "osmode" os)
)

meflying

左右方向未提示用户该输入什么，总不能输入一个“在左”或“在右”吧，提示语最好这样写：[在右(R)]&lt;在左(L)&gt;:


判断这样：(if (= "R"        (strcase d))...


ps:头像是你本人照片吗？好靓哦，发到社区留言里置顶的帖子里吧，好多人

晓雨

你告诉我，这张照片给你的感觉是不是我很土，不许说谎，