[求助]：请高人给编写一个等分连线

露水2

如图

carrot1983

我记得以前zm184写过三等分连线的。。搜一下。。

dandee

以前有个叫动态复制的程序，可以完美等分

xyp1964

原先有个“等分线”的编译程序也不错，呵呵……

露水2

我的水平很低的,我自己编写了一个直线的等分连线.
但是曲线的就不会了!

xyp请你再编写一个在曲线上求任意点的垂直线,已经用了你的曲线垂直等分线了.哈哈!!!!!!!!!!在本论坛知道了怎么用笨方式求就这个垂直线,也编写了一个lsp


(defun c:test()
(setq en (entsel "\n选择曲线"))
(setq ptt (cadr en))
(command "xline" "per" ptt)
  (princ)
)

zml84

参见：http://p4.xdcad.net/forum/showthread.php?s=&threadid=633508
请试一试“xx”命令

露水2

命令: ZZ
★无当前路线对象，请先选择之!!
★请点取路线中心线：; 错误: ActiveX 服务器返回错误: 未知名称: LENGTH


图片也上传不上
我再叙述一边
两条任意曲线
选择第一条
选择第二条
输入需要等分数(n)
然后每条曲线被平分成n分(不是断开的)
然后将这些点用线依次连接起来.

carrot1983

啊。。。。。。。
这个就是我这几天正在找的程序啊。。。呵呵
可惜我没找到。。

jx2008

弄个等分角上来阿！

Underway

; BISECT.LSP   Bisect an Angle   (c)1995, Bill Melcher

; pick two lines and a bisector is drawn beginning at their intersection
; and extending out as far as the first pick point.
; Works only with lines.  Aborts if lines are parallel.

<CODE>

(defun getln (PR)
   (setq TYPE "nil"
   PRMPT (strcat "\nPick " PR " line: "))
   (while (/= TYPE "LINE")
      (if (/= (setq TEMP (entsel PRMPT)) nil)
         (progn
            (setq LN1 (entget (car TEMP))
            TYPE (cdr (assoc 0 LN1)))
            (if (/= TYPE "LINE")
            (print (strcat "Can't bisect a " TYPE)))
         )
         (print "Invalid point")
      )
   ) ;end while
) ;end getln()

(defun C:BISECT(/ P1 P2 P3 P4 PIK1 PIK2 LN1 P5 P6 ANGA ANGB ANGC TEMP TYPE)
   (getln "first")
   (setq P1 (cdr (assoc 10 LN1))
      P2 (cdr (assoc 11 LN1))
      PIK1 (osnap (cadr TEMP) "near")
   )
   (getln "second")
   (setq p3 (cdr (assoc 10 LN1))
      P4 (cdr (assoc 11 LN1))
      PIK2 (osnap (cadr TEMP) "near")
   )
   ; get intersection and angles
   (setq P5 (inters P1 P2 P3 P4 nil)
      ANGA (angle P5 PIK1)
      ANGB (angle P5 PIK2)
   )
   (if (> ANGA ANGB)
      (setq ANGC (+ (/ (+ (- (* 2 pi) ANGA) ANGB) 2) ANGA))
      (setq ANGC (+ (/ (- ANGB ANGA) 2) ANGA))
   )
   ; draw bisector from intersection to length
   (command "LINE" P5 (polar P5 ANGC (distance P5 PIK1)) "")      
   (prin1)
); end bisect.lsp

</CODE>

xyp1964

[php];;; 2线等分点连线
(defun c:test ()
  (CMDLA0)
  (SETQ INT (UINT 1 "" "等分数" INT))
  (if (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
    (progn
      (setq s1         (ssname ss 0)
            s2         (ssname ss 1)
            ptn1 (xyp-get-CurveDivNumPtlst s1 int)
            ptn2 (xyp-get-CurveDivNumPtlst s2 int)
            i         -1
      )
      (xyp-mklaco "TEST" 1)
      (foreach pt ptn1
        (setq i          (1+ i)
              pt1 (nth i ptn2)
        )
        (command "LINE" pt pt1 "")
      )
    )
  )
  (CMDLA1)
)[/php]