如何利用LISP合并CAD快捷键

jevnchen0720

我想将UCS，DOR，DBA三个原始快捷键合并成一个快捷键FF，
我应该怎么编写呀？

电赛加油

  多谢大神分享，学习一下！

zhangcan0515

谢谢分享，已经学习到了

paulpipi

好贴，学习了，谢谢

ZZXXQQ

2. (defun c:udd ()
   
3. (command "UCS")
   
4. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
5. (command "DIMORDINATE")
   
6. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
7. (command "DIMBASELINE")
   
8. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
9. (princ)
   
10. )
    

(defun c:udd ()<br /> (command "UCS")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (command "DIMORDINATE")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (command "DIMBASELINE")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (princ)<br /> )<br />

jevnchen0720

ZZXXQQ 发表于 2014-4-27 07:39

版主，你真伟大，这正是我想要的，不过需要鼠标点击一次自定义原点，然后再点一次指定尺寸线起点，第三次点击时确定尺寸文字位置，可否将自定义原点与指定尺寸线起点合并成鼠标点击一次即可？另外能稍微简单得解释一下每行代码的意思吗？我完全是个外人，也想借此机会学习一下lips，方便以后的工作！万分感谢！！

ZZXXQQ

2. (defun c:udd ()
   
3. (setq pt (getpoint "\n原点: "));取得原点
   
4. (command "UCS" "N" pt);发出UCS命令并给定原点
   
5. (command "DIMORDINATE" pt);发出坐标标注命令并给定起点
   
6. (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成
   
7. (command "DIMBASELINE");发出标注命令
   
8. (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成
   
9. (princ)
   
10. )
    

(defun c:udd ()<br /> (setq pt (getpoint "\n原点: "));取得原点<br /> (command "UCS" "N" pt);发出UCS命令并给定原点<br /> (command "DIMORDINATE" pt);发出坐标标注命令并给定起点<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成<br /> (command "DIMBASELINE");发出标注命令<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成<br /> (princ)<br /> )<br />

xyp1964

(defun c:ff()(c:UCS)(c:DOR)(c:DBA))

ll_j

xyp1964 发表于 2014-4-27 10:25
(defun c:ff()(c:UCS)(c:DOR)(c:DBA))

这是院长本人么？这样可以？命令不是外部函数吧。

jevnchen0720

ZZXXQQ 发表于 2014-4-27 09:18

第二种方案试过了，但是有出现一个问题，就是第一根尺寸线的起点不是在原点，而是跑到别的地方去了，需要结束命令，然后再次驶入快捷，然后点击原点，这样拉出来的第一根线才是在原点，我尝试着颠倒了一下前两部命令的步骤之类的，还是没调出来，所以还得请版主大人指点迷津啦！！谢谢！

ZZXXQQ

2. (defun c:udd ()
   
3. (setq pt (getpoint "\n原点: "));取得原点
   
4. (command "UCS" "N" pt);发出UCS命令并给定原点
   
5. (command "DIMORDINATE" (list 0 0));发出坐标标注命令并给定起点
   
6. (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成
   
7. (command "DIMBASELINE");发出标注命令
   
8. (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成
   
9. (princ)
   
10. )
    

(defun c:udd ()<br /> (setq pt (getpoint "\n原点: "));取得原点<br /> (command "UCS" "N" pt);发出UCS命令并给定原点<br /> (command "DIMORDINATE" (list 0 0));发出坐标标注命令并给定起点<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成<br /> (command "DIMBASELINE");发出标注命令<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前一命令完成<br /> (princ)<br /> )<br />

jevnchen0720

ZZXXQQ 发表于 2014-4-27 14:37

OK了，版主，原来指定一个坐标0点就好了，谢谢！！！可以通过QQ联系你下吗？还有几个问题想请教一下！

xyp1964

2. 
   
3. (defun c:tt ()
   
4.   (setq pt (getpoint "\n基点<退出>: "))
   
5.   (command "ucs" "n" pt)
   
6.   (setq p0 '(0 0)
   
7.         p1 '(0 300)
   
8.         p2 '(300 0)
   
9.   )
   
10.   (command "dim1" "ord" p0 p1 "")
    
11.   (setq s1 (entlast))
    
12.   (command "dim1" "ord" p0 p2 "")
    
13.   (setq s2 (entlast))
    
14.   (while (setq p0 (getpoint "\n基点<退出>: "))
    
15.     (command "dim1" "bas" "" s1 p0 "")
    
16.     (command "dim1" "bas" "" s2 p0 "")
    
17.   )
    
18.   (princ)
    
19. )

<br /> (defun c:tt ()<br />   (setq pt (getpoint "\n基点<退出>: "))<br />   (command "ucs" "n" pt)<br />   (setq p0 '(0 0)<br />         p1 '(0 300)<br />         p2 '(300 0)<br />   )<br />   (command "dim1" "ord" p0 p1 "")<br />   (setq s1 (entlast))<br />   (command "dim1" "ord" p0 p2 "")<br />   (setq s2 (entlast))<br />   (while (setq p0 (getpoint "\n基点<退出>: "))<br />     (command "dim1" "bas" "" s1 p0 "")<br />     (command "dim1" "bas" "" s2 p0 "")<br />   )<br />   (princ)<br /> )