[LISP程序]：如何用Lisp模拟尺寸标注？

lcl2094_cn

想用Lisp模拟尺寸标注，但是引用‘command’无法实现可选参数输入，请教高招！！
谢谢。……
               LCL     
欢迎到我的主页参观：http://luocl-cad.myrice.com

cy956

什么叫模拟，要输入什么？你说得太简陋了。

gchen

怎么会不能输入可选参数，我现在的尺寸标注命令全都是自己用lisp编写的，在其中调用
command函数，很好用啊。但是话说回来，肯定是有一些限制的，关键是你需要解决什么
问题。

lcl2094_cn

让我可以参考一下,谢谢!
我的邮箱:
lcl2094_cn@sina.com

gchen

好了，已经发给你了。

XDSoft

最初由 gchen 发布
[B]好了，已经发给你了。 [/B]

可以把文件给大家贴到论坛来吗，谢谢！

lcl2094_cn

2. 
   
3. [FONT=courier new]
   
4. (defun c:d (/ p0 p1 p2 ang ent p10a p11a entst)
   
5.   (setvar "cmdecho" 0)
   
6.   (ai_undo_push)
   
7.   (setvar "osmode" 47)
   
8.   (mlay "dim" "3")
   
9.   (initget 128)
   
10.   (setq p0 (getpoint "\nSpecify first extension line origin or [Align/< Select line to align>] :")
    
11.         entst (entlast)
    
12.   )
    
13.   (if (null p0)
    
14.     (setq p0 "S")
    
15.   )
    
16.   (if (= (type p0) 'str)
    
17.     (progn
    
18.       (cond
    
19.         ((= (strcase p0) "S")
    
20.           (setq ent (nentselp "\nSelect line :"))
    
21.           (while (null ent)
    
22.             (setq ent (nentselp "\nSelect line :"))
    
23.           )
    
24.           (while (/= (cdr (assoc 0 (entget (car ent)))) "LINE")
    
25.             (setq ent (nentselp "Object selected is not line .\nSelect line :"))
    
26.           )
    
27.           (if (= (nth 3 ent) nil)
    
28.             (progn
    
29.               (setq p1 (trans (cdr (assoc 10 (entget (car ent)))) 0 1)
    
30.                     p2 (trans (cdr (assoc 11 (entget (car ent)))) 0 1)
    
31.                     ang (* 180 (/ (angle p1 p2) pi))
    
32.               )
    
33.             )
    
34.             (progn
    
35.               (matrix_b ent)
    
36.               (setq p1 (trans p10a 0 1)
    
37.                     p2 (trans p11a 0 1)
    
38.                     ang (* 180 (/ (angle p1 p2) pi))
    
39.               )
    
40.             )
    
41.           )
    
42.         )
    
43.         ((= (strcase p0) "A")
    
44.           (setq p1 (getpoint "\nSpecify first extension line origin :")
    
45.                 p2 (getpoint p1 "\nSpecify second extension line origin :")
    
46.                 ang (* 180 (/ (angle p1 p2) pi))
    
47.           )
    
48.         )
    
49.       )
    
50.       (princ "\nSpecify dimension line location :")
    
51.       (command "_.dim1" "rotated" ang p1 p2 pause "")
    
52.     )
    
53.     (progn
    
54.       (setq p1 (getpoint p0 "\nSpecify second extension line origin :"))
    
55.       (princ "\nSpecify dimension line location :")
    
56.       (command "dimlinear" p0 p1 pause)
    
57.     )
    
58.   )
    
59.   (if (not (equal entst (entlast)))
    
60.     (progn
    
61.       (replace_ch "dim" 256 "bylayer" (entlast))
    
62.       (entmod (subst
    
63.                 (cons 51 0)
    
64.                 (assoc 51 (entget (entlast)))
    
65.                 (entget (entlast))
    
66.               )
    
67.       )
    
68.       (setq dimtxt (cdr (assoc 42 (entget (entlast)))))
    
69.       (princ (strcat "\nDimension text = " (rtos dimtxt)))
    
70.     )
    
71.   )
    
72.   (ai_undo_pop)
    
73.   (setvar "cmdecho" 1)
    
74.   (princ)
    
75. )
    
76. [/FONT]

<br /> [FONT=courier new]<br /> (defun c:d (/ p0 p1 p2 ang ent p10a p11a entst)<br />   (setvar "cmdecho" 0)<br />   (ai_undo_push)<br />   (setvar "osmode" 47)<br />   (mlay "dim" "3")<br />   (initget 128)<br />   (setq p0 (getpoint "\nSpecify first extension line origin or [Align/< Select line to align>] :")<br />         entst (entlast)<br />   )<br />   (if (null p0)<br />     (setq p0 "S")<br />   )<br />   (if (= (type p0) 'str)<br />     (progn<br />       (cond<br />         ((= (strcase p0) "S")<br />           (setq ent (nentselp "\nSelect line :"))<br />           (while (null ent)<br />             (setq ent (nentselp "\nSelect line :"))<br />           )<br />           (while (/= (cdr (assoc 0 (entget (car ent)))) "LINE")<br />             (setq ent (nentselp "Object selected is not line .\nSelect line :"))<br />           )<br />           (if (= (nth 3 ent) nil)<br />             (progn<br />               (setq p1 (trans (cdr (assoc 10 (entget (car ent)))) 0 1)<br />                     p2 (trans (cdr (assoc 11 (entget (car ent)))) 0 1)<br />                     ang (* 180 (/ (angle p1 p2) pi))<br />               )<br />             )<br />             (progn<br />               (matrix_b ent)<br />               (setq p1 (trans p10a 0 1)<br />                     p2 (trans p11a 0 1)<br />                     ang (* 180 (/ (angle p1 p2) pi))<br />               )<br />             )<br />           )<br />         )<br />         ((= (strcase p0) "A")<br />           (setq p1 (getpoint "\nSpecify first extension line origin :")<br />                 p2 (getpoint p1 "\nSpecify second extension line origin :")<br />                 ang (* 180 (/ (angle p1 p2) pi))<br />           )<br />         )<br />       )<br />       (princ "\nSpecify dimension line location :")<br />       (command "_.dim1" "rotated" ang p1 p2 pause "")<br />     )<br />     (progn<br />       (setq p1 (getpoint p0 "\nSpecify second extension line origin :"))<br />       (princ "\nSpecify dimension line location :")<br />       (command "dimlinear" p0 p1 pause)<br />     )<br />   )<br />   (if (not (equal entst (entlast)))<br />     (progn<br />       (replace_ch "dim" 256 "bylayer" (entlast))<br />       (entmod (subst<br />                 (cons 51 0)<br />                 (assoc 51 (entget (entlast)))<br />                 (entget (entlast))<br />               )<br />       )<br />       (setq dimtxt (cdr (assoc 42 (entget (entlast)))))<br />       (princ (strcat "\nDimension text = " (rtos dimtxt)))<br />     )<br />   )<br />   (ai_undo_pop)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> [/FONT]

;|这是我用的尺寸标注的lisp程序，因为其中有我自己编写的函数，所以在你的机子上可能无法运行，
只是给你一个参考，（mlay "dim" 3)是图层创建函数，（matrix_b ent)是块转换阵列函数。
在这个程序中，将标注命令简化，但也有许多autocad命令中的选项没有加入，你可以加入它们，
靠你自己的聪明才智了。有什么问题再联系了
|;

请下载tem.lsp