图像裁剪的vlisp编程问题.

鱼与熊掌

2. ;获取光栅图形对象
   
3. (setq obj(vlax-ename->vla-object(car (entsel))))
   
4. ;获取点表
   
5. (setq var_pts(vla-get-Coordinates(vlax-ename->vla-object(car (entsel"选图内矩形")))))
   
6. ;使用方法裁剪.
   
7. (vla-ClipBoundary obj var_pts)

;获取光栅图形对象<br /> (setq obj(vlax-ename->vla-object(car (entsel))))<br /> ;获取点表<br /> (setq var_pts(vla-get-Coordinates(vlax-ename->vla-object(car (entsel"选图内矩形")))))<br /> ;使用方法裁剪.<br /> (vla-ClipBoundary obj var_pts)

该死的.提示输入无效.
;错误: Automation 错误。 输入无效
大伙有什么好办法没


,<<<,,这个问题在后来已经解决了,只不过没人讨论,我就没继续发帖子了.现在我把lisp代码发上来.大家可以参考一下.

鱼与熊掌

lee50310 发表于 2020-7-20 10:21
錯誤: no function definition: CX-E2O
缺 CX-E2O函數定義

(defun cx-E2O(obj)
        (if(='ename(type obj))
                (vlax-ename->vla-object obj)
                obj
        )
)

l982414603

,<<<,,这个问题在后来已经解决了,只不过没人讨论,我就没继续发帖子了.现在我把lisp代码发上来.大家可以参考一下.

lee50310

錯誤: no function definition: CX-E2O
缺 CX-E2O函數定義

dragoon33333

我也在研究这个，是不是三维点表的问题呀

Gu_xl

dragoon33333 发表于 2015-5-15 10:14
我也在研究这个，是不是三维点表的问题呀

加载XLRX_API:

1. (XLRX-Image-Clip image pts)

(XLRX-Image-Clip image pts)

鱼与熊掌

其实这个那个时候我已经实现了,因为没人讨论  我就放着了. 等会将lisp实现的代码贴上来.

鱼与熊掌

dragoon33333 发表于 2015-5-15 10:14
我也在研究这个，是不是三维点表的问题呀

看附件~````

434939575

晓东里面有个修剪的

xman00

鱼与熊掌 发表于 2015-5-15 15:02
其实这个那个时候我已经实现了,因为没人讨论  我就放着了. 等会将lisp实现的代码贴上来.

请教楼主，实现的lisp在哪里啊。用1楼的代码依然是
错误: Automation 错误。未提供说明。

鱼与熊掌

xman00 发表于 2015-8-9 20:51
请教楼主，实现的lisp在哪里啊。用1楼的代码依然是
错误: Automation 错误。未提供说明。

是不是没有转换成Object对象.
或者是提供的点表不是三维点表呢??
上代码看看

xman00

鱼与熊掌 发表于 2015-8-9 21:19
是不是没有转换成Object对象.
或者是提供的点表不是三维点表呢??
上代码看看

(defun c:xj ()
;获取光栅图形对象
(setq obj(vlax-ename->vla-object(car (entsel))))
;获取点表
(setq var_pts(vla-get-Coordinates(vlax-ename->vla-object(car (entsel"选图内矩形")))))
;使用方法裁剪.
(vla-ClipBoundary obj var_pts)
)
我是对光栅图像及矩形框执行的。不是这样的么？

鱼与熊掌

xman00 发表于 2015-8-9 22:25
(defun c:xj ()
;获取光栅图形对象
(setq obj(vlax-ename->vla-object(car (entsel))))

这样是可以的