鱼与熊掌 发表于 2015-4-8 15:32:45

图像裁剪的vlisp编程问题.

本帖最后由 鱼与熊掌 于 2020-9-22 11:05 编辑

;获取光栅图形对象
(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)该死的.提示输入无效.
;错误: Automation 错误。 输入无效
大伙有什么好办法没


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



鱼与熊掌 发表于 2020-9-22 11:01:10

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 发表于 2020-7-19 10:12:11

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

lee50310 发表于 2020-7-20 10:21:09

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

dragoon33333 发表于 2015-5-15 10:14:53

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

Gu_xl 发表于 2015-5-15 12:24:49

dragoon33333 发表于 2015-5-15 10:14 static/image/common/back.gif
我也在研究这个，是不是三维点表的问题呀
加载XLRX_API:
(XLRX-Image-Clip image pts)

鱼与熊掌 发表于 2015-5-15 15:02:03

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

鱼与熊掌 发表于 2015-5-15 15:06:47

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

看附件~````

434939575 发表于 2015-6-14 11:08:50

晓东里面有个修剪的

xman00 发表于 2015-8-9 20:51:17

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

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

鱼与熊掌 发表于 2015-8-9 21:19:05

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

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

xman00 发表于 2015-8-9 22:25:42

鱼与熊掌 发表于 2015-8-9 21:19 static/image/common/back.gif
是不是没有转换成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)
)
我是对光栅图像及矩形框执行的。不是这样的么？

鱼与熊掌 发表于 2015-8-9 22:31:42

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


这样是可以的
页: [1] 2 3
查看完整版本: 图像裁剪的vlisp编程问题.