简易的圆内对象裁剪lisp。。就差一点了。。请大侠解决。。谢谢。。

lvbin2ooo

网上找了好多圆内对象裁剪，我这自创了个简易的裁剪。。
(defun c:kxy()
(setq bj  10.0 )   ;;设定半径
(setq py 7.0)      ;;设定矩形边长
(setvar "osmode" 0)
(setq pkxy (getpoint "Where?" ))    ;;以下在圆内构造一个矩形
(setq zb1 (list  (- (car pkxy) py)   (- (cadr pkxy) py)      ))         
(setq zb2 (list  (+ (car pkxy) py)   (- (cadr pkxy) py)      ))         
(setq zb4 (list  (- (car pkxy) py)   (+ (cadr pkxy) py)      ))         
(setq zb3 (list  (+ (car pkxy) py)   (+ (cadr pkxy) py)      ))           
(command "circle" pkxy bj )
   
(command "trim" kxyy  "f" zb1 zb2 zb3 zb4 zb1 ""  "" )   ;;此行运行不了
(command "trim" kxyy  "c" zb1 zb3  " ")                        ;;此行也运行不了

(prin1)
)  

就是最后trim运用的不好。。求解决。。谢谢。

lvbin2ooo

我是菜鸟。。没有大侠指导嘛。。

lvbin2ooo

大侠休息了。。后来自己发现问题了。。惭愧惭愧。。少了句定义。。最终可用代码如下，

(defun c:kxy()

(setq  osmode (getvar "osmode")  )
(setvar "cmdecho" 0)
   
(setq bj  1.0 )   ;;设定半径
(setq py (/ bj 1.6 ))   ;;设定半径
(setq pkxy (getpoint "Where?" ))    ;;以下在圆内构造一个矩形
(setvar "osmode" 0)

(setq zb1 (list  (- (car pkxy) py)   (- (cadr pkxy) py)      ))         
(setq zb2 (list  (+ (car pkxy) py)   (- (cadr pkxy) py)      ))         
(setq zb4 (list  (- (car pkxy) py)   (+ (cadr pkxy) py)      ))         
(setq zb3 (list  (+ (car pkxy) py)   (+ (cadr pkxy) py)      ))           

(command "circle" pkxy bj )
(setq kxyy (entlast))

(command "trim" kxyy  "" )
(command  "f" zb1 zb2 zb3 zb4 zb1 "" "")

(setvar "osmode" osmode)


(prin1)
)  

vlisp2012

看来自己成长为大侠了！！！！

328302216

执行程序就提示点一个点就完了 没看到有什么效果！！   希望源码都能附个动画