pline圆弧炸开后如何解决顺向的问题？

crazylsp

把方块做成块来布在线上可能要好点,至少可以调间距了

mandala

crazylsp 发表于 2010-12-15 21:38
把方块做成块来布在线上可能要好点,至少可以调间距了

请问怎么把块布在线上呢？

crazylsp

      )
    )
  )
  (command "_.UCS" "WORLD")
  (setvar "CMDECHO" 1)
  (princ)
)

mandala

这里人都很厉害，楼上的我基本上没看懂。想了几天，觉得还是Gu_xl 先生提出的“判断圆弧中点是在圆弧的两个端点的左右来判断”的办法是最可靠的，但本人纯属菜鸟，刚开始接触lisp，完全不知道该如何实现。Gu_xl 先生可能对我期望过高了，惭愧。

因为用(command "_.pline" )画出来的pline线可能含有数个凹凸不同的圆弧，也可能一个圆弧都没有，如何来一一判断呢？

起始画pline用的线型是AA，形符号在前进方向的左侧。我打算如果碰到圆心在pline前进方向右侧的圆弧，就把该段圆弧线型改成反向的BB。

请这里的各位高手帮忙啦！！先谢谢大家。

Gu_xl

下面的程序完全满足你的要求

2. 
   
3. ;;;线型 810 和810a互为反向线型
   
4. (defun c:tt(/ en enl enlist n el)
   
5.   (setvar "celtype" "810")
   
6.   (command "pline")
   
7.   (while (= 1 (getvar "cmdactive"))
   
8.   (command pause)
   
9.     )
   
10.   (setq en (entlast))
    
11.   (setq enl (entget en))
    
12.   (setq enl (vl-remove-if '(lambda (x) (/= 42 (car x))) enl))
    
13.   (command "explode" en)
    
14.   (while (setq en (entnext en))
    
15.     (setq enlist (cons en enlist))
    
16.     )
    
17.   (setq enlist (reverse enlist)
    
18.         n 0)
    
19.   (repeat (length enl)
    
20.     (if (/= 0 (cdr (nth n enl)))
    
21.       (if (< (cdr (nth n enl)) 0)
    
22.         (progn
    
23.         (setq el (entget (nth n enlist)))
    
24.         (setq el (subst (cons 6 "810a") (assoc 6 el) el))
    
25.         (entmod el)
    
26.         )
    
27.         )
    
28.       )
    
29.     (setq n (1+ n))
    
30.     )
    
31.   (princ)
    
32.   )
    

<br /> ;;;线型 810 和810a互为反向线型<br /> (defun c:tt(/ en enl enlist n el)<br />   (setvar "celtype" "810")<br />   (command "pline")<br />   (while (= 1 (getvar "cmdactive"))<br />   (command pause)<br />     )<br />   (setq en (entlast))<br />   (setq enl (entget en))<br />   (setq enl (vl-remove-if '(lambda (x) (/= 42 (car x))) enl))<br />   (command "explode" en)<br />   (while (setq en (entnext en))<br />     (setq enlist (cons en enlist))<br />     )<br />   (setq enlist (reverse enlist)<br />         n 0)<br />   (repeat (length enl)<br />     (if (/= 0 (cdr (nth n enl)))<br />       (if (< (cdr (nth n enl)) 0)<br />         (progn<br />         (setq el (entget (nth n enlist)))<br />         (setq el (subst (cons 6 "810a") (assoc 6 el) el))<br />         (entmod el)<br />         )<br />         )<br />       )<br />     (setq n (1+ n))<br />     )<br />   (princ)<br />   )<br />

caiqs

用pl线拟合圆弧

461045462

请问mandala 能否提供你的作图lsp源码，看看分析学习学习？
有一个软件或许能解决你的烦恼



另外请教一下，你从cad截图到这上面是用什么软件，或用什么方法？我直接从cad截图不能粘贴到这上面。因为有时需要截图说明问题，不能直接粘贴很麻烦。
望指教
谢谢

mandala

461045462 发表于 2010-12-18 07:53
请问mandala 能否提供你的作图lsp源码，看看分析学习学习？
有一个软件或许能解决你的烦恼

你好！lsp源码我晚上贴上来，现在还在做一点修改，不过上边Gu_xl 先生贴的那段已经很完美了，是用查凸度来实现选择圆弧的。

另外贴图很简单啊，打开QQ，用里边的截屏工具……然后存盘成JPG格式再上传……

461045462

mandala 发表于 2010-12-18 10:12
你好！lsp源码我晚上贴上来，现在还在做一点修改，不过上边Gu_xl 先生贴的那段已经很完美了，是用查凸度来 ...

谢谢
贴图很简单啊，打开QQ.....  存盘成JPG格式再上传.....
觉得比较麻烦，如果能直接粘贴就好。
我是用jpgout
Gu_xl 先生贴的那段是很完美。
用他的画出坎齿是随凸倒的，觉得一条连线坎似乎朝一边倒

mandala

jpgout的选择方式不理想。