1291500406 发表于 2019-1-30 16:04:52

圆的图形覆盖wipeout

本帖最后由 1291500406 于 2019-1-30 16:07 编辑

圆的图形覆盖

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

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

alexmai 发表于 2019-3-6 18:54:31

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

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

1291500406 发表于 2019-1-31 14:37:46

本帖最后由 1291500406 于 2019-1-31 14:42 编辑

fan_zh 发表于 2019-1-31 13:26
支持楼主源码，虽然不需要
cad的wipeout命令只能覆盖多边形，圆不行，如果想学习lisp的运行规律，每条代码都值得收藏，

fan_zh 发表于 2019-1-31 13:26:35

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

1291500406 发表于 2019-2-1 00:46:43

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


谢谢大佬提示

HenryZiu 发表于 2019-3-5 15:40:08

感谢楼主分享！

yoyoho 发表于 2019-3-5 17:38:41

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

mokson 发表于 2019-3-5 17:59:41

超级实用，感谢分享！

KO你 发表于 2019-5-6 02:59:46

如果能完善到拾取带有半圆的轮廓多段线或者椭圆都可以覆盖那就完美了
页: [1] 2
查看完整版本: 圆的图形覆盖wipeout