怎样获得块内的直线

54256

我选中一条直线，若这条直线是在块内的直线，怎么样取出这条直线的端点坐标


谢谢

zyhandw

用nentsel应该就能行了吧，可以自己查阅下这个函数

阿霸jun

遍历块内的对象，获取图元名，然后获取坐标点

54256

阿霸jun 发表于 2013-7-3 09:22
遍历块内的对象，获取图元名，然后获取坐标点

怎样遍历？

Gu_xl

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (nentselp "\n选择块内直线:"))
   
4.         (= "LINE" (cdr (assoc 0 (setq el (entget (car e))))))
   
5.         )
   
6.     (progn
   
7.       (setq p0 (cdr (assoc 10 el))
   
8.             p1 (cdr (assoc 11 el))
   
9.             )
   
10.       (if (cddr e)
    
11.         (progn
    
12.           (setq m (caddr e))
    
13.           (setq p0 (MXP m p0)
    
14.                 p1 (MXP m p1)
    
15.                 )
    
16.           )
    
17.         )
    
18.       (grdraw (trans p0 0 1) (trans p1 0 1) 1)
    
19.       )
    
20.     )
    
21.   
    
22.   )
    
23. (defun mxv (m v)
    
24.   (mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m)
    
25. )
    
26. (defun mxp (m p)
    
27.   (reverse (cdr (reverse (mxv m (append p '(1.0))))))
    
28. )

(defun c:tt ()<br />   (if (and<br />         (setq e (nentselp "\n选择块内直线:"))<br />         (= "LINE" (cdr (assoc 0 (setq el (entget (car e))))))<br />         )<br />     (progn<br />       (setq p0 (cdr (assoc 10 el))<br />             p1 (cdr (assoc 11 el))<br />             )<br />       (if (cddr e)<br />         (progn<br />           (setq m (caddr e))<br />           (setq p0 (MXP m p0)<br />                 p1 (MXP m p1)<br />                 )<br />           )<br />         )<br />       (grdraw (trans p0 0 1) (trans p1 0 1) 1)<br />       )<br />     )<br />   <br />   )<br /> (defun mxv (m v)<br />   (mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m)<br /> )<br /> (defun mxp (m p)<br />   (reverse (cdr (reverse (mxv m (append p '(1.0))))))<br /> )

54256

Gu_xl 发表于 2013-7-3 09:53

请问，cddr是个什么函数

Gu_xl

54256 发表于 2013-7-3 11:09
请问，cddr是个什么函数

(cddr lst) = (cdr (cdr list))
car、 cdr 可以任意组合，最多四层，操作顺序是自右向左！
cadr = (car (cdr lst))
组合诸如:cadddr/cdaadr/cadr/cdar ...

54256

Gu_xl 发表于 2013-7-3 11:27
(cddr lst) = (cdr (cdr list))
car、 cdr 可以任意组合，最多四层，操作顺序是自右向左！
cadr = (car ...

谢谢高手，长见识了

54256

Gu_xl 发表于 2013-7-3 09:53

(setq e (nentselp "\n选择块内直线:"))
这句话我的程序里没有出现的，我是通过SSGET获得对象的，
我的希望是，有这么一个子函数，输入是对象，若这个对象是块中的直线
则输出直线的2个端点

谢谢

Gu_xl

54256 发表于 2013-7-3 12:18
(setq e (nentselp "\n选择块内直线:"))
这句话我的程序里没有出现的，我是通过SSGET获得对象的，
我的 ...

这种想法是行不通的！你没有理解块定义对象和块的关系！ssget不可能获得块中的对象！
通过Insert块对象可以构造nentselp返回的矩阵，请在论坛搜索相关知识！