请帮帮忙

晓雨 · 发表于 2004-4-4 18:48:00

请各位高手帮帮忙，
(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 · 发表于 2004-4-4 19:02:00

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

晓雨 · 发表于 2004-4-4 19:04:00

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

srv0mcxwiqi.jpg

晓雨 · 发表于 2004-4-4 19:47:00

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

meflying · 发表于 2004-4-4 20:22:00

如果你选择了跟PT连的那条直线,或许可以根据直线的角度来判断使用方式1还是方式2
做的时候,你最好将方式1或2做成子函数,在主还是只要根据需要调用某一个就可以了

yxp · 发表于 2004-4-4 21:43:00

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

ba2hludt5w5.jpg

如图

yxp · 发表于 2004-4-4 21:47:00

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