工作中经常用到，还请高人赐一个LISP。谢谢。

ghoust

我那个打点机已经OK。现在，每块模板上都要画几个基准点，以方便识别。我希望输入一个命令，然后点一下基准点，然后就会出来五个圆，尺寸和大小如图。只需要绘那几个圆就可以了。不需要标注和颜色、图层什么的。谢谢。

st788796

ghoust 发表于 2014-3-6 22:08
主要是因为块的速度慢。我的图库太大了，块太多了。对于没有外挂的CAD，这个LISP就更实用了。

1. (defun c:mkcl (/ v p)
   
2.   (setq        v '((6. 6. 0.)
   
3.             (6. 12. 0.)
   
4.             (6. 18 0.)
   
5.             (12. 6. 0.)
   
6.             (18. 6. 0.)
   
7.            )
   
8.   )
   
9.   (while (setq p (getpoint "\n基点: "))
   
10.     (mapcar '(lambda (x)
    
11.                (xdrx_circle_make (mapcar '+ x p) 1.)
    
12.              )
    
13.             v
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:mkcl (/ v p)<br />   (setq        v '((6. 6. 0.)<br />             (6. 12. 0.)<br />             (6. 18 0.)<br />             (12. 6. 0.)<br />             (18. 6. 0.)<br />            )<br />   )<br />   (while (setq p (getpoint "\n基点: "))<br />     (mapcar '(lambda (x)<br />                (xdrx_circle_make (mapcar '+ x p) 1.)<br />              )<br />             v<br />     )<br />   )<br />   (princ)<br /> )

处处问题鸟

我确信，你对于lisp一窍不通！

处处问题鸟

（defun c:tt()
     (Setq p (get point "Base Point"))
     (Command "circle" "_non" (mapcar  '+ p (list 6 6 0)) 1)
       ;;其他圆语法类似，自行添加
   ....
）

429014673

自已做一个块,直接插入.这个小东东还要用LSP?

st788796

1 基点处肯定是直角?
2 会不会是右下角、左上角、右上角？

ghoust

st788796 发表于 2014-3-6 21:58
1 基点处肯定是直角?
2 会不会是右下角、左上角、右上角？

一定是直角，都是在左下角。{:soso_e101:}本人确实对LISP一窍不通，，，惭愧。。。。

ghoust

429014673 发表于 2014-3-6 21:52
自已做一个块,直接插入.这个小东东还要用LSP?

主要是因为块的速度慢。我的图库太大了，块太多了。对于没有外挂的CAD，这个LISP就更实用了。

ghoust

st788796 发表于 2014-3-6 22:11

非常OK。谢谢大师。  弱弱的问一下，如果不加载XDRX可以吗？这个LISP就机床上用，经常更新比较麻烦。{:soso_e113:}谢谢。

st788796

ghoust 发表于 2014-3-6 22:22
非常OK。谢谢大师。  弱弱的问一下，如果不加载XDRX可以吗？这个LISP就机床上用，经常更新比较麻烦。{:so ...

改成(vl-cmdf ".circle" (mapcar '+ p x) 1.0)

ghoust

st788796 发表于 2014-3-6 23:28
改成(vl-cmdf ".circle" (mapcar '+ p x) 1.0)

大师，这就是用你写的那个打点的程序做出来的效果。功能简单，但真的实用。太感谢了。

st788796

ghoust 发表于 2014-3-8 14:59
大师，这就是用你写的那个打点的程序做出来的效果。功能简单，但真的实用。太感谢了。

相当不错了!

1. (defun c:mkcl (/ v p)
   
2.   (setq        v '((6. 6. 0.)
   
3.             (6. 12. 0.)
   
4.             (6. 18 0.)
   
5.             (12. 6. 0.)
   
6.             (18. 6. 0.)
   
7.            )
   
8.   )
   
9.   (while (setq p (getpoint "\n基点: "))
   
10.     (mapcar '(lambda (x)
    
11.                (entmakex (list '(0 . "CIRCLE")
    
12.                                '(100 . "AcDbEntity")
    
13.                                '(100 . "AcDbCircle")
    
14.                                (cons 10 (mapcar '+ p x))
    
15.                                '(40 . 1.0)
    
16.                          )
    
17.                )
    
18.              )
    
19.             v
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:mkcl (/ v p)<br />   (setq        v '((6. 6. 0.)<br />             (6. 12. 0.)<br />             (6. 18 0.)<br />             (12. 6. 0.)<br />             (18. 6. 0.)<br />            )<br />   )<br />   (while (setq p (getpoint "\n基点: "))<br />     (mapcar '(lambda (x)<br />                (entmakex (list '(0 . "CIRCLE")<br />                                '(100 . "AcDbEntity")<br />                                '(100 . "AcDbCircle")<br />                                (cons 10 (mapcar '+ p x))<br />                                '(40 . 1.0)<br />                          )<br />                )<br />              )<br />             v<br />     )<br />   )<br />   (princ)<br /> )

清风明月10

谢谢楼主的分享！很有意思的软件，收藏备用。

怒放的生命acai

新手路过学习一下...

lucas3

我想问一下楼主，你这机器是用什么系统控制的，可还以用lisp?