象满足这样功能的函数怎么写

zdqwy19

690994 发表于 2012-5-4 10:20
我试着做一个，我试是可以，你试下吧，

兄弟，我刚才试了一下。发现你里面缺太多子程序，这样不太好吧！

690994

你将下面注解的去除注解就行了，可能只有一个SAM—DXF没有吧，
这个你一看就知道是干什么用的啦

zdqwy19

690994 发表于 2012-5-4 17:41
你将下面注解的去除注解就行了，可能只有一个SAM—DXF没有吧，
这个你一看就知道是干什么用的啦

有4个吧！我看了一下，光去掉那几行还不行。你把缺的那几个函数补上吧。

zdqwy19

690994 发表于 2012-5-4 17:41
你将下面注解的去除注解就行了，可能只有一个SAM—DXF没有吧，
这个你一看就知道是干什么用的啦

有4个吧！我看了一下，光去掉那几行还不行。你把缺的那几个函数补上吧。

690994

zdqwy19 发表于 2012-5-4 18:21
有4个吧！我看了一下，光去掉那几行还不行。你把缺的那几个函数补上吧。

TE程序段是我测试用的，
你只需要(CENN (CAR(ENTSEL)) '(0 0 0))就行，
其它三个是我测试画红线用的，
跟你的要求没有关系。

zdqwy19

690994 发表于 2012-5-4 19:34
TE程序段是我测试用的，
你只需要(CENN (CAR(ENTSEL)) '(0 0 0))就行，
其它三个是我测试画红线用的，
...

你还是给个全的吧！包括你的测试程序段。我没有你想象中那么高的水平！

zdqwy19

690994 发表于 2012-5-4 19:34
TE程序段是我测试用的，
你只需要(CENN (CAR(ENTSEL)) '(0 0 0))就行，
其它三个是我测试画红线用的，
...

你还是给个全的吧！包括你的测试程序段。我没有你想象中那么高的水平！

zdqwy19

690994 发表于 2012-5-4 19:34
TE程序段是我测试用的，
你只需要(CENN (CAR(ENTSEL)) '(0 0 0))就行，
其它三个是我测试画红线用的，
...

多谢了！你才是高水平！

690994

zdqwy19 发表于 2012-5-4 22:29
多谢了！你才是高水平！

我以为你都会用矩阵了，底子一定比我好，
我其实连矩阵的概念还不是很清楚，只是看过
高人高飞鸟的原位复制受到启发而已，
你把下面代码加入去再试吧。
(defun C:te( / blk ls)      
   (setq blk(car (entsel "\n    Please select Block: " ))
         ls (cenn blk '(0 0 0))
         ls(append (list (list 0 0 0))ls);加原点可有可无
   )
(command "PLINE")(foreach itm ls (command itm))(command "")
)

(defun sam_dxf ( n ent)  
        (if (= (type ent) 'ename)
          (cdr (assoc n (entget ent)))
          (cdr (assoc n ent))
        )               
)

zdqwy19

690994 发表于 2012-5-5 10:20
我以为你都会用矩阵了，底子一定比我好，
我其实连矩阵的概念还不是很清楚，只是看过
高人高飞鸟的原位 ...

其实这里面我还想加一个筛选条件，就块插入后最终形成的圆半径。譬如，刚绘制块时圆的半径是1000，插入块选择缩放比例0.5，那么最终形成的圆半径是500，我想把半径500也作为筛选条件。再帮助帮助！