【求助】求一断面线程序

tm20038175

wowan1314 发表于 2012-4-21 12:24
自己傻B，还出来卖弄！ 你全家都是这付臭德行，人家好心帮你，你还说人的不是。你说你贱不贱！

SB东西， ...

wowan1314 你失控了，回去冷静冷静吧！
想拍马屁，确拍错了地方~~~~
你已经出现了明显的攻击性言论，郑重警告你这样可是要封贴的，好自为之吧！！！！

Gu_xl

tm20038175 发表于 2012-4-21 12:34
wowan1314 你失控了，回去冷静冷静吧！
想拍马屁，确拍错了地方~~~~
你已经出现了明显的攻击性言论，郑 ...

现在论坛里有两类人，一类是来明经论坛来学习的，别人若给了全部源码，当然最好不过！即使别人给的是伪源码，你也可从中受益，可以从中获得编程思路！没有必要强求别人的源码！另一种人只是来明经求程序的，他并不在乎程序内容如何，这种人建议到明经威客上去付费求程序，一是这样你可以得到你正真想要的程序，二来同时支持了明经的发展！何乐而不为！
不知楼主是哪类人？

tm20038175

Gu_xl 发表于 2012-4-21 13:33
现在论坛里有两类人，一类是来明经论坛来学习的，别人若给了全部源码，当然最好不过！即使别人给的是伪源 ...

看来是我错了，来明经学习，求教程序还想别人提要求，这恐怕是犯了大忌，在此向前面理论过的几位表示道歉：给不给源码，是你们自己的事情，我们不应该提要求！

tm20038175

冒犯了院长，心里有些过意不去！
如果还向院长索取源码，那不就是让院长以德报怨吗？
孔夫子强调以德报德，我可不敢破例~~
我正在查阅资料，看看能不能试着自己编写，院长的好意敬请留待下次吧，谢谢~~~~~~

xyp1964

sdwy196912

不妨把曲线的要求改为直线.
有些曲线你就是用CAD画也不一定连的到多段线.

1993063

2. ;;;原来找的源码
   
3. (defun C:jdx (/ ang dis lay pt1 pt2 pt3 pt4 pt5 pt6 scale x1)
   
4.   (defun *error* (msg)
   
5.     (SETVAR "clayer" lay)
   
6.     (if (and
   
7.           msg
   
8.           (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,"))
   
9.         )
   
10.       (princ  msg)
    
11.       (princ)
    
12.     )
    
13.   )
    
14.   (setvar "CMDECHO" 0)
    
15.   (setq lay (getvar "clayer"))
    
16.   (command "color" "bylayer")
    
17.   (command "layer" "m" "截断线" "c" "m" "截断线" "")
    
18.   (setq scale (getreal "\n截断线宽度 <300>:"))
    
19.   (if (= scale nil)
    
20.     (setq scale 300)
    
21.   )
    
22.   (setq pt1 (getpoint "\n第一点:"))
    
23.   (setq pt2 (getpoint pt1 "\n第二点:"))
    
24.   (setq ang (angle pt1 pt2))
    
25.   (setq dis (distance pt1 pt2))
    
26.   (setq x1 (/ (- dis (* 2 scale)) 2))
    
27.   (setq pt3 (polar pt1 ang x1))
    
28.   (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))
    
29.   (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))
    
30.   (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))
    
31.   (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")
    
32.   (*error* "")
    
33.   (princ)
    
34. )

;;;原来找的源码<br /> (defun C:jdx (/ ang dis lay pt1 pt2 pt3 pt4 pt5 pt6 scale x1)<br />   (defun *error* (msg)<br />     (SETVAR "clayer" lay)<br />     (if (and<br />           msg<br />           (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,"))<br />         )<br />       (princ  msg)<br />       (princ)<br />     )<br />   )<br />   (setvar "CMDECHO" 0)<br />   (setq lay (getvar "clayer"))<br />   (command "color" "bylayer")<br />   (command "layer" "m" "截断线" "c" "m" "截断线" "")<br />   (setq scale (getreal "\n截断线宽度 <300>:"))<br />   (if (= scale nil)<br />     (setq scale 300)<br />   )<br />   (setq pt1 (getpoint "\n第一点:"))<br />   (setq pt2 (getpoint pt1 "\n第二点:"))<br />   (setq ang (angle pt1 pt2))<br />   (setq dis (distance pt1 pt2))<br />   (setq x1 (/ (- dis (* 2 scale)) 2))<br />   (setq pt3 (polar pt1 ang x1))<br />   (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))<br />   (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))<br />   (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))<br />   (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")<br />   (*error* "")<br />   (princ)<br /> )

tm20038175

1993063 发表于 2012-4-22 22:32

谢谢已经很受用了，十分改写，呵呵~~~~~