圆的图形覆盖wipeout

1291500406

圆的图形覆盖

xyp1964

1. ;; tt(360边模拟圆周遮蔽)
   
2. (defun c:tt ()
   
3.   (setq rr (Udist 7 "" "半径<输入或鼠标直接量取>" rr nil))
   
4.   (while (setq p0 (getpoint "\n基点<退出>: "))
   
5.     (command "polygon" 360 "non" p0 "I" "non" (polar p0 0 rr))
   
6.     (command "wipeout" "" "l" "y")
   
7.   )
   
8.   (princ)
   
9. )

;; tt(360边模拟圆周遮蔽)<br /> (defun c:tt ()<br />   (setq rr (Udist 7 "" "半径<输入或鼠标直接量取>" rr nil))<br />   (while (setq p0 (getpoint "\n基点<退出>: "))<br />     (command "polygon" 360 "non" p0 "I" "non" (polar p0 0 rr))<br />     (command "wipeout" "" "l" "y")<br />   )<br />   (princ)<br /> )

alexmai

圆非常少用
我一般用多边形，36 以上，再wipeout

(defun c:qq(/ ent)
  (setq ent (ssget ":S"))
  (command "wipeout" "p" ent "y")
  (princ)
)

1291500406

fan_zh 发表于 2019-1-31 13:26
支持楼主源码，虽然不需要

cad的wipeout命令只能覆盖多边形，圆不行，如果想学习lisp的运行规律，每条代码都值得收藏，

fan_zh

支持楼主源码，虽然不需要

1291500406

xyp1964 发表于 2019-1-31 23:51

谢谢大佬提示

HenryZiu

感谢楼主分享！

yoyoho

感谢楼主分享!!!!!!

mokson

超级实用，感谢分享！

KO你

如果能完善到拾取带有半圆的轮廓多段线或者椭圆都可以覆盖那就完美了