[求助]：各位大侠帮忙修改一下程序－序号标注

lsjzhj2004

本程序是一个制作带圈件号标注的lisp程序，程序目前功能非常简单，希望在高手们的帮助下，修改成一个功能相对强大的程序。
想达到的目的：1、能实现动态标注，2、数字记忆和递增功能（还是以自动输入为主）。

;本程序用于标注带圈设备序号，
(defun c:lj ()
(setq osm (getvar "osmode"))
(setvar "orthomode" 0)
(setvar "CMDECHO" 0)
(setvar "osmode" 0)
(command "layer" "n" "P-MARK" "c" "3" "P-MARK" "")
(command "layer" "s" "P-MARK" "")
(setq k (getint "请输入比例：")
(setq p1 (getpoint "\n请选择插入点:"))
(setq p2 (getpoint p1 "\n请选择文字插入的位置:"))
(setq st1 (getstring "\n请输入编号:"))
(setq sc k)
(command "donut" 0 (* 0.6 sc) p1 "")
;;;(command "style" "standard" "romans" (* 3.5 k) 0.8 "0" "n" "n")
(setq radiu (* 3 sc))
(setq dd (distance p1 p2))
(setq p3 (polar p1 (angle p1 p2) (- dd radiu)))
(setvar "osmode" 0)
(command "line" p1 p3 "")
(command "circle" p2 radiu)
(setq st1 st1)
(command "text" "s" "standard" "j" "mc" p2 (* 3 sc) "0" st1 "" "")
;;;(setvar "osmode" osmodetemp)
(setvar "osmode" osm)
(setvar "orthomode" 1)
(command "layer" "s" "0" "")
)

希望高手们发挥自己的特长啊，呵呵！

wkq004

没有具体的问题,真没兴趣把整个程序读一遍,什么时候想加个对话框了找我.

rubbin

下面为修正后的程序,已经可以运行了.
(defun c:lj ()
(setq osm (getvar "osmode"))
(setvar "orthomode" 0)
(setvar "CMDECHO" 0)
(setvar "osmode" 0)
(if (not (tblsearch "layer" "P-MARK"))
(command "layer" "n" "P-MARK" "c" "3" "P-MARK" "")
)
(command "layer" "s" "P-MARK" "")
(setq p1 (getpoint "\n请选择插入点:"))
(setq p2 (getpoint p1 "\n请选择文字插入的位置:"))
(setq st1 (getint "\n请输入编号:"))
(if (= nil st1)
    (progn
    (setq st1 1))
)
(command "donut" 0 (* 0.6 (getvar "dimscale")) p1 "")
(setq radiu (* 3 (getvar "dimscale")))
(setq dd (distance p1 p2))
(setq p3 (polar p1 (angle p1 p2) (- dd radiu)))
(setvar "osmode" 0)
(command "line" p1 p3 "")
(command "circle" p2 radiu)
(command "text" "s" "standard" "j" "mc" p2 (* 3 (getvar "dimscale")) "0" st1)
(setvar "osmode" osm)
(setvar "orthomode" 1)
(command "layer" "s" "0" "")
(princ)
)

lsjzhj2004

最初由 rubbin 发布
[B]下面为修正后的程序,已经可以运行了.
(defun c:lj ()
(setq osm (getvar "osmode"))
(setvar "orthomode" 0)
(setvar "CMDECHO" 0)
(setvar "osmode" 0)
(if (not (tblsearch "layer" "P-MARK"))
(command "... [/B]

谢谢，运行是没有问题了，不过我运行的结果没有达到预期的结果，就是在输入时可以动态显示。例如：我可以让程序先确定要输入的序号，然后再选定P1点，然后再输入P2点，后面的两步就会以动态显示效果显示出来。能否实现呢？呵呵

xyp1964

2. [FONT=courier new];; dtxh(动态序号) 动态带圈设备序号
   
3. (defun c:dtxh (/ p1 p2 radiu s1 s2 s3 mode motion code p3 oss)
   
4.   (cmdlasc0)
   
5.   (xyp-MkLaCo "P-MARK" 3)
   
6.   (setq        bh  (UINT 7 "" "编号" bh)
   
7.         oss (getvar "osmode")
   
8.   )
   
9.   (while (setq p1 (getpoint "\n请选择插入点: "))
   
10.     (setq p2        (polar p1 0 500)
    
11.           radiu        (* 300 xyp-sc)
    
12.     )
    
13.     (setvar "osmode" 0)
    
14.     (command "donut" 0 (* 60 xyp-sc) p1 "")
    
15.     (command "line" p1 p2 "")
    
16.     (setq s1 (entlast))
    
17.     (command "circle" p2 radiu)
    
18.     (setq s2 (entlast))
    
19.     (xyp-Text 5 p2 (itoa bh))
    
20.     (setq s3   (entlast)
    
21.           bh  (1+ bh)
    
22.           mode t
    
23.     )
    
24.     (princ "\n请选择放置位置: ")
    
25.     (while mode
    
26.       (setq motion (grread t 15 0)
    
27.             code   (car motion)
    
28.       )
    
29.       (if (or (= code 2)
    
30.               (= code 3)
    
31.               (= code 25)
    
32.           )
    
33.         (setq mode nil)
    
34.         (progn
    
35.           (setq        p2 (cadr motion)
    
36.                 p3 (polar p2 (angle p2 p1) radiu)
    
37.           )
    
38.           (xyp-SUBUPD s1 11 p3)
    
39.           (xyp-SUBUPD s2 10 p2)
    
40.           (xyp-SUBUPD s3 11 p2)
    
41.         )
    
42.       )
    
43.     )
    
44.     (setvar "osmode" oss)
    
45.   )
    
46.   (cmdla1)
    
47. )[/FONT]

[FONT=courier new];; dtxh(动态序号) 动态带圈设备序号 <br /> (defun c:dtxh (/ p1 p2 radiu s1 s2 s3 mode motion code p3 oss)<br />   (cmdlasc0)<br />   (xyp-MkLaCo "P-MARK" 3)<br />   (setq        bh  (UINT 7 "" "编号" bh)<br />         oss (getvar "osmode")<br />   )<br />   (while (setq p1 (getpoint "\n请选择插入点: "))<br />     (setq p2        (polar p1 0 500)<br />           radiu        (* 300 xyp-sc)<br />     )<br />     (setvar "osmode" 0)<br />     (command "donut" 0 (* 60 xyp-sc) p1 "")<br />     (command "line" p1 p2 "")<br />     (setq s1 (entlast))<br />     (command "circle" p2 radiu)<br />     (setq s2 (entlast))<br />     (xyp-Text 5 p2 (itoa bh))<br />     (setq s3   (entlast)<br />           bh  (1+ bh)<br />           mode t<br />     )<br />     (princ "\n请选择放置位置: ")<br />     (while mode<br />       (setq motion (grread t 15 0)<br />             code   (car motion)<br />       )<br />       (if (or (= code 2)<br />               (= code 3)<br />               (= code 25)<br />           )<br />         (setq mode nil)<br />         (progn<br />           (setq        p2 (cadr motion)<br />                 p3 (polar p2 (angle p2 p1) radiu)<br />           )<br />           (xyp-SUBUPD s1 11 p3)<br />           (xyp-SUBUPD s2 10 p2)<br />           (xyp-SUBUPD s3 11 p2)<br />         )<br />       )<br />     )<br />     (setvar "osmode" oss)<br />   )<br />   (cmdla1)<br /> )[/FONT]

xyp1964

dtxh(动态序号)

lsjzhj2004

最初由 xyp1964 发布
[B]dtxh(动态序号) [/B]

哥哥，你的程序你早就给过我，但一加载了你的程序就是影响个别程序的运行，其中有一个程序是“加粗PL线”无法正常使用，可能是你的函数与我的程序有冲突吧!另外，你生成的序号标注字体为宋体，这不太符合一些作图的习惯!不知道哥哥能否再给改一下啊，谢谢!

xyp1964

最初由 lsjzhj2004 发布
[B]
哥哥，你的程序你早就给过我，但一加载了你的程序就是影响个别程序的运行，其中有一个程序是“加粗PL线”无法正常使用，可能是你的函数与我的?.. [/B]

都没下载，居然就说不行……

lsjzhj2004

最初由 xyp1964 发布
[B]
都没下?.. [/B]

哦，好像是不冲突了，谢谢哥哥。但能不能字体不用宋体，改为standard字体呢，不然生成完标号后再回来全部改为standard，毕竟费劲了一步!谢谢