lisp怎样操作自定义对象

tooo · 发表于 2014-3-5 18:25:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 tooo 于 2014-3-5 18:26 编辑

图中有这么几个图框，是在理正勘察环境下程序自动画的，点选后显示它的类型是“CTukuang"，它应该是某种自定义对象吧（我也不清楚该怎么称呼它），用ssget选择它后无法通过（entget (ssname sset index))这种方式来获取它，提示
; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
现在想获得各图图框四个角的坐标，请问该如何写这个代码。

退出理正环境直接用CAD打开它，点选后显示它的类型是"ACAD_PROXY_ENTITY"。可用（entget (ssname sset index))这种方式来获取它，但得到的信息很少，如下：
((-1 . <图元名: 7ef8b908>) (0 . ACAD_PROXY_ENTITY) (330 . <图元名: 7ef87cf8>) (5 . 7A1) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . GiCAD_TuKuang))
也没有它的坐标，大小等信息。
另外，理正勘察应该是用到好多ObjectARX技术，启动时调用了好多.arx文件。

只想获得它们的四角坐标，用lisp有可能实现吗？如果不行，那用其它方法可以吗？

st788796 · 发表于 2014-3-5 19:24:40

vla-getboundingbox可以

tooo · 发表于 2014-3-5 19:44:59

本帖最后由 tooo 于 2014-3-5 19:47 编辑

试了一下，其它对象可以，选中这几个特别的图框就出错：
错误: Automation 错误。范围无效

  (setq ss1 (ssget))
  (setq ent (ssname ss1 0)) ;;到这一句时还正常
  (vla-getboundingbox  (vlax-ename->vla-object ent) 'minp 'maxp)  ;;到这一句就出错了

哪里不妥？

tooo · 发表于 2014-3-5 19:57:18

补充一下：
(vlax-ename->vla-object ent) 返回的值是 #<VLA-OBJECT IAcadEntity 07d26f8r>

Free-Lancer · 发表于 2014-3-5 20:55:55

(defun c:tt (/ pts)
(fy:clearcset)
(if (ssget '((8 . "CtuKuang")))
(progn
(setq
pts (mapcar '(lambda (x / bp up)
(vla-getboundingbox x 'bp 'up)
(list (safearray-value bp)
(list (vlax-safearray-get-element up 0)
(vlax-safearray-get-element bp 1)
0.
)
(safearray-value up)
(list (vlax-safearray-get-element bp 0)
(vlax-safearray-get-element up 1)
0.
)
)
)
(fy:cset->objs)
)
)
)
)
(princ pts)
(princ)
)

tooo · 发表于 2014-3-5 22:33:46

谢谢，已测试以上代码，但不成功。
(ssget '((8 . "CTukuang")))这一句可能不适合，没获取到对象。
CTukuang 是这个对象的类型名，不是它所在的图层。
请看这个图：

st788796 · 发表于 2014-3-6 08:20:30

改为 (8 . “GiCAD_TuKuang"))

tooo · 发表于 2014-3-6 08:35:28

试过了，执行tt后它提示我选择对象，鼠标框选后出错。

命令: tt
选择对象: 指定对角点: 找到 3 个
选择对象: ; 错误: Automation 错误。范围无效
命令:

问题不是选不到它们，而是进入了选择集之后，只可以得到它的名字，但不能用 (entget ename)对它进行操作，也就无法访问到它的各种属性（组码）。用(vla-getboundingbox (vlax-ename->vla-object ename) 'minp 'maxp) ，也提示：错误: Automation 错误。范围无效

zxq0220 · 发表于 2014-3-6 08:42:01

;自定义实体外框晓东 zxq0220 2014.3.6
(defun c:tt ()
(setvar "CMDECHO" 0)
(vl-load-com)
(if (setq ss (ssget '((0 . "ACAD_PROXY_ENTITY")))) (progn
(setq i -1 pts (list))
(repeat (sslength ss)
(setq en (ssname ss (setq i (1+ i))))
(command ".UNDO" "BE")
(command "_.EXPLODE" en)
(command ".UNDO" "E")
(setq ss2 (ssget "P"))
(setq j -1 pts1 (list))
(repeat (sslength ss2)
(setq en2 (ssname ss2 (setq j (1+ j))))
(setq pts1 (append pts1 (getbox en2)))
)
(command "_U")
(setq p1 (list (apply 'min (mapcar 'car pts1)) (apply 'min (mapcar 'cadr pts1))))
(setq p2 (list (apply 'max (mapcar 'car pts1)) (apply 'max (mapcar 'cadr pts1))))
(setq pts (cons (list p1 p2) pts))
)
))
(princ (reverse pts))
(setvar "CMDECHO" 1)
(princ)
)
(defun getbox (een / p1 p2)
(vla-getboundingbox(vlax-ename->vla-object een) 'p1 'p2)
(list (vlax-safearray->list p1) (vlax-safearray->list p2))
)

;自定义实体外框 晓东 zxq0220 2014.3.6 
(defun c:tt () 
 (setvar "CMDECHO" 0) 
 (vl-load-com) 
 (if (setq ss (ssget '((0 . "ACAD_PROXY_ENTITY")))) (progn 
  (setq i -1 pts (list)) 
  (repeat (sslength ss) 
  (setq en (ssname ss (setq i (1+ i)))) 
  (command ".UNDO" "BE") 
  (command "_.EXPLODE" en) 
  (command ".UNDO" "E") 
  (setq ss2 (ssget "P")) 
  (setq j -1 pts1 (list)) 
  (repeat (sslength ss2) 
   (setq en2 (ssname ss2 (setq j (1+ j)))) 
   (setq pts1 (append pts1 (getbox en2))) 
  ) 
  (command "_U") 
  (setq p1 (list (apply 'min (mapcar 'car pts1)) (apply 'min (mapcar 'cadr pts1)))) 
  (setq p2 (list (apply 'max (mapcar 'car pts1)) (apply 'max (mapcar 'cadr pts1)))) 
  (setq pts (cons (list p1 p2) pts)) 
  ) 
 )) 
 (princ (reverse pts)) 
 (setvar "CMDECHO" 1) 
 (princ) 
) 
(defun getbox (een / p1 p2) 
 (vla-getboundingbox(vlax-ename->vla-object een) 'p1 'p2) 
 (list (vlax-safearray->list p1) (vlax-safearray->list p2)) 
)

st788796 · 发表于 2014-3-6 09:09:46

本帖最后由 st788796 于 2014-3-6 09:11 编辑

tooo 发表于 2014-3-6 08:35
试过了，执行tt后它提示我选择对象，鼠标框选后出错。

命令: tt

这种代理实体就不要指望实体名及 vlax-ename->vla-object 了，直接用 ActiveX 选择集，无须转换！

代理实体是没有那么多DXF组码的，即使有解释程序，作者也未必开放了组码

tooo · 发表于 2014-3-6 09:11:07

zxq0220 发表于 2014-3-6 08:42

这个可行，只是必须要离开理正勘察这个环境，直接用CAD打开文件。

在理正勘察环境下无法选到对象，把
(ssget '((0 . "ACAD_PROXY_ENTITY"))) 改成 (ssget '((0 . "CTukuang")))也选不到它，除非不使用过滤器参数。
直接用(ssget)选到它后，这回程序执行正常了，也得到了它的外框角点坐标{:soso_e113:}

如果能用过滤器参数直接选中它们就完美了，在理正勘察环境下用Qselect命令选择时，CTukuang是一种新的对象类型，请看下图：

不知道称它为自定义对象是否合适。

tooo · 发表于 2014-3-6 09:14:14

st788796 发表于 2014-3-6 09:09
这种代理实体就不要指望实体名及 vlax-ename->vla-object 了，直接用 ActiveX 选择集，无须转换！

代 ...

直接用 ActiveX 选择集。还不会唉，再学习学习。谢谢。

tooo · 发表于 2014-3-9 20:25:58

zxq0220 发表于 2014-3-6 08:42

再次请教，还是这个帖子里的那几个图框，有办法使用过滤器参数选择到它们吗？

st788796 · 发表于 2014-3-9 20:38:10

tooo 发表于 2014-3-9 20:25
再次请教，还是这个帖子里的那几个图框，有办法使用过滤器参数选择到它们吗？

用图层过滤

tooo · 发表于 2014-3-9 20:54:21

st788796 发表于 2014-3-9 20:38
用图层过滤

多谢指点！太好了，程序自动成图，这个图层里还真没有其它东西了。
剑走偏锋，却一击而中，高！

附上用QSELECT选择时的图片，看看还有没有什么其它办法

账号		自动登录	找回密码
密码			立即注册

[求助] lisp怎样操作自定义对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评