修剪为什么只能剪二次

吃饭才能长胖

2. (defun c:tt ()
   
3.   (setvar "osmode" 0)
   
4.   (print "111")
   
5.   (setq aa (car (entsel)))
   
6.   (setq bb (entget aa))
   
7.   (command "mline" "s" 4 "j" "z" "")
   
8.   (setq pt1 (cdr (assoc 10 bb)))
   
9.   (setq pt2 (cdr (assoc 40 bb)))
   
10.   (setq pt3 (+ pt2 10.))
    
11.   (setq cc (/ (* pi 2) 4) n 0 c 1)
    
12.   (repeat 4
    
13.     (command "mline" pt1 (polar pt1 n pt3) "")
    
14.     (command "trim" (entlast) "" (list aa (polar pt1 n pt3)) "")
    
15.     (setq n (+ n cc))
    
16.     (setq c (1+ c))
    
17.   )
    
18.   (setvar "osmode" 3)
    
19. )

(defun c:tt ()<br />   (setvar "osmode" 0)<br />   (print "111")<br />   (setq aa (car (entsel)))<br />   (setq bb (entget aa))<br />   (command "mline" "s" 4 "j" "z" "")<br />   (setq pt1 (cdr (assoc 10 bb)))<br />   (setq pt2 (cdr (assoc 40 bb)))<br />   (setq pt3 (+ pt2 10.))<br />   (setq cc (/ (* pi 2) 4) n 0 c 1)<br />   (repeat 4<br />     (command "mline" pt1 (polar pt1 n pt3) "")<br />     (command "trim" (entlast) "" (list aa (polar pt1 n pt3)) "")<br />     (setq n (+ n cc))<br />     (setq c (1+ c))<br />   )<br />   (setvar "osmode" 3)<br /> )

此为郊果图
以上为代码，未能实现如下郊果图
请问一下为什么会这样呢？修剪还在学习中！另全部如何取出真彩色如：色为60,195,148的图元！烦请各位大侠解答！8谢了！

eachy

吃饭才能长胖 发表于 2013-8-17 20:51
没有的！我知道圆孤可以生成来更快，但是圆的话好像没有起点！VLISP我的函数我还不知道怎么用呢。大神用V ...

圆的起点是 三点 方向象限点，这个打断可以用 Break ，但是第一次断开后就没有Circle了，新生成了 Arc ，而且对 ARC 的 Break 要按逆时针来操作，下一次的实体用 entlast 获取

eachy

吃饭才能长胖 发表于 2013-8-17 19:33
好麻烦啊！呵呵！怎么取得真彩色的图元呢 ？比如色为60,195,148的图元
-

将RGB转换为Truecolor
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=455458
_$ (rgbtoole_color '(60 195 148))
3982228
_$

过滤选择 (ssget '((420 . 3982228)))

Lisphk

吃饭才能长胖 发表于 2013-8-17 16:20
是的！师兄有没有更好的方法？给个代码学习一下啊！谢谢师兄！

如果是这样的话，你不能一直用最开始的圆弧了，因为TRIM后，实体就变了，你试试在画MLINE的时候，判断下是否和其他实体，比如圆弧相交了，如果相交，取得相交的圆弧，然后操作，这样能准确。

zxq0220

2. (defun c:tt ()
   
3.   (setvar "osmode" 0)
   
4.   (print "111")
   
5.   (setq aa (car (entsel "\n选择圆: ")))
   
6.   (setq bb (entget aa))
   
7.   (command "mline" "s" 4 "j" "z" "")
   
8.   (setq pt1 (cdr (assoc 10 bb)))
   
9.   (setq pt2 (cdr (assoc 40 bb)))
   
10.   (setq pt3 (+ pt2 10.))
    
11.   (setq cc (/ pi 2) n 0)
    
12.   (repeat 4
    
13.     (command "mline" pt1 (polar pt1 n pt3) "")
    
14.     (command "trim" "L" "" (polar pt1 n pt2) "")
    
15.     (setq n (+ n cc))
    
16.   )
    
17.   (setvar "osmode" 3)
    
18. )
    

(defun c:tt ()<br />   (setvar "osmode" 0)<br />   (print "111")<br />   (setq aa (car (entsel "\n选择圆: ")))<br />   (setq bb (entget aa))<br />   (command "mline" "s" 4 "j" "z" "")<br />   (setq pt1 (cdr (assoc 10 bb)))<br />   (setq pt2 (cdr (assoc 40 bb)))<br />   (setq pt3 (+ pt2 10.))<br />   (setq cc (/ pi 2) n 0)<br />   (repeat 4<br />     (command "mline" pt1 (polar pt1 n pt3) "")<br />     (command "trim" "L" "" (polar pt1 n pt2) "")<br />     (setq n (+ n cc))<br />   )<br />   (setvar "osmode" 3)<br /> )<br />

这样试试：

Lisphk

entlast 我想不是你认为的那个，你需要再判断下。

吃饭才能长胖

Lisphk 发表于 2013-8-17 14:40
entlast 我想不是你认为的那个，你需要再判断下。

是不大明白！看了魔法师也不大明白，烦请指点一下！

Lisphk

吃饭才能长胖 发表于 2013-8-17 14:50
是不大明白！看了魔法师也不大明白，烦请指点一下！

你的本意是想画个MLINE,然后打断和他相交的弧线吗？

吃饭才能长胖

Lisphk 发表于 2013-8-17 15:23
你的本意是想画个MLINE,然后打断和他相交的弧线吗？

是的！师兄有没有更好的方法？给个代码学习一下啊！谢谢师兄！

吃饭才能长胖

zxq0220 发表于 2013-8-17 16:19
这样试试：

不行哦师兄！有的时候可以有的时候不可以！

吃饭才能长胖

好麻烦啊！呵呵！怎么取得真彩色的图元呢 ？比如色为60,195,148的图元
-

吃饭才能长胖

eachy 发表于 2013-8-17 20:14
将RGB转换为Truecolor
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=455458
_$ (rgbtoole ...

副站长大神也来了！能指点一下怎么打断圆么、？

eachy

吃饭才能长胖 发表于 2013-8-17 20:18
副站长大神也来了！能指点一下怎么打断圆么、？

详细说说你要的功能和操作步骤

吃饭才能长胖

eachy 发表于 2013-8-17 20:23
详细说说你要的功能和操作步骤

就是把一个圆打断成若干分，打断几分由我来交互输入！打断距离为4个MM

eachy

吃饭才能长胖 发表于 2013-8-17 20:26
就是把一个圆打断成若干分，打断几分由我来交互输入！打断距离为4个MM

和这个 Mline 没有关系？

吃饭才能长胖

eachy 发表于 2013-8-17 20:36
和这个 Mline 没有关系？

没有的！我知道圆孤可以生成来更快，但是圆的话好像没有起点！VLISP我的函数我还不知道怎么用呢。大神用VLISP函数做出来我想更快！