本帖最后由 1291500406 于 2019-1-30 16:07 编辑
圆的图形覆盖
网友答: 本帖最后由 1291500406 于 2019-5-6 13:38 编辑
http://bbs.mjtd.com/thread-179498-1-1.html
这个怎么没人用，花了很多心思，而且免费的网友答:
网友答:
圆非常少用
我一般用多边形，36 以上，再wipeout
(defun c:qq(/ ent)
(setq ent (ssget ":S"))
(command "wipeout" "p" ent "y")
(princ)
)
网友答: 支持楼主源码，虽然不需要网友答: 本帖最后由 1291500406 于 2019-1-31 14:42 编辑
cad的wipeout命令只能覆盖多边形，圆不行，如果想学习lisp的运行规律，每条代码都值得收藏，
网友答:
谢谢大佬提示网友答: 感谢楼主分享！网友答: 感谢楼主分享!!!!!!网友答: 超级实用，感谢分享！
网友答: 如果能完善到拾取带有半圆的轮廓多段线或者椭圆都可以覆盖那就完美了
圆的图形覆盖
网友答: 本帖最后由 1291500406 于 2019-5-6 13:38 编辑
KO你 发表于 2019-5-6 13:23
很期待
http://bbs.mjtd.com/thread-179498-1-1.html
这个怎么没人用，花了很多心思，而且免费的网友答:
- ;; 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)
- )
我一般用多边形，36 以上，再wipeout
(defun c:qq(/ ent)
(setq ent (ssget ":S"))
(command "wipeout" "p" ent "y")
(princ)
)
网友答: 支持楼主源码，虽然不需要网友答: 本帖最后由 1291500406 于 2019-1-31 14:42 编辑
fan_zh 发表于 2019-1-31 13:26
支持楼主源码，虽然不需要
cad的wipeout命令只能覆盖多边形，圆不行，如果想学习lisp的运行规律，每条代码都值得收藏，
网友答:
xyp1964 发表于 2019-1-31 23:51
谢谢大佬提示网友答: 感谢楼主分享！网友答: 感谢楼主分享!!!!!!网友答: 超级实用，感谢分享！
网友答: 如果能完善到拾取带有半圆的轮廓多段线或者椭圆都可以覆盖那就完美了