[求助]：请问如何移动PL线的点

matichen

我想移动多意线的某一点，如端点，不移动整个线，只是端点。LISP应该如何写，谢谢。

f5612140

使用"掣點"即可,何需程序

陌生人

1用夹点功能
2,用拉伸命令
3 编程

matichen

最初由 陌生人 发布
[B]1用夹点功能
2,用拉伸命令
3 编程 [/B]

就是问3如何实现呢？   这回答太、、简单呢吧。
我知道可以直接拉夹点，但是有几千根差一点连接靠垄，我想用LISP，但没思路，谢谢哪位帮忙

f5612140

最初由 matichen 发布
[B]

就是问3如何实现呢？   这回答太、、简单呢吧。
我知道可以直接拉夹点，但是有几千根差一点连接靠垄，我想用LISP，但没?.. [/B]

"MPEDIT"不能達到您的要求嗎?

libo2000

;更新对象属性
(defun chengs_change ( ename assoc_num newdate / elist edate update )
  (if (listp ename)
    (setq elist (entget (car ename)))
    (setq elist (entget ename))   
  )
  (if (= nil (numberp assoc_num)) (exit))  
  (setq edate (assoc assoc_num elist))
  (setq update (cons assoc_num newdate))
  (setq elist (subst update edate elist))
  (if edate
    (setq elist (subst update edate elist))
    (setq elist (append elist (list update)))
  )
  (entmod elist)  
);endfun chengs_change
;eg (chengs_change ent 10 (list 0.0 0.0 0.0))
;   (chengs_change ent 10 (getpoint))
;   (chengs_change ent 62 1)

;更新对象属性中的第N个assoc项
(defun chengs_change2 ( ename assoc_num newdate num / elist edate update )
  (if (listp ename)
    (setq elist (entget (car ename)))
    (setq elist (entget ename))   
  )
  (if (= nil (numberp assoc_num)) (exit))  
  (setq edate (chengs_assoc assoc_num ename num))
  (setq update (cons assoc_num newdate))
  (if edate
    (setq elist (subst update edate elist))
    (setq elist (append elist (list update)))
  )
  (entmod elist)  
  ;(if (setq ename (car (reverse (cadddr ename)))) (entupd ename))  
);endfun chengs_change2
;eg (chengs_change2 ent 10 (list 0.0 0.0 0.0) 2)

;;;提取第n个assoc值
;ename:对象  ;n:第N个assoc_num,n>=1
(defun chengs_assoc (assoc_num ename n / elist edate i loop enum m len result)
  (if (listp ename) (setq ename (car ename)))
  (setq elist (entget ename)
        i 0
        loop T
        m 1
        len (length elist)
  )
  (while (and (= loop T) (<= i len))
    (setq enum (car edate))
    (if (= enum assoc_num)
      (progn
        (if (= m n)
          (setq loop nil)
          (progn
            (setq m (+ m 1)
                     i (+ i 1)
                     edate (nth i elist)
            )
          )
        )
      )
      (progn
        (setq i (+ i 1))
        (setq edate (nth i elist))
      )
    )
  )
  (setq result edate)
);endfun chengs_assoc

lsjjm

5楼: 1楼主是要求LISP编程.
6楼: 可能引进(command "pedit" ......)会简单些.

f5612140

最初由 lsjjm 发布
[B]5楼: 1楼主是要求LISP编程.
6楼: 可能引进(command "pedit" ......)会简单些. [/B]

是吧,就像畫一個矩形也可以再寫一個程序

lsjjm

最初由 matichen 发布
[B]我想移动多意线的某一点，如端点，不移动整个线，只是端点。LISP应该如何写，谢谢。 [/B]

参考:http://www.xdcad.net/forum/showt ... amp;threadid=122896

matichen

谢谢各位了。

回f5612140，我不是没事找事，如果PE就能解决我干嘛要多此一举呢，
是这样，很多线都是一截截的，多至上千根，看起来是一条完整的线，但是很多都有些微的没接上，就是说不是用抓取点连接的，如果一根根的去拖夹点、捕捉。那会是恐怖的事，用MPE也没用的，要一根根去对端点。

我是想提出每条线的端点，然后去比较其他端点，如果距离小于某一设定值，让两条线的端点自动连接上。想法刚有，就是还没试，各位大侠有什么好的建议。谢谢

lsjjm

7楼: 我给你的参考贴子你看了吗, 可以解决你的问题呀!
再给你: :http://www.xdcad.net/forum/showthre...threadid=122896

f5612140

最初由 matichen 发布
[B]谢谢各位了。

回f5612140，我不是没事找事，如果PE就能解决我干嘛要多此一举呢，
是这样，很多线都是一截截的，多至上千根，看起来是一条完整的线，但是很多都有些微的没接上，就是说不是用抓取点连接的，如果一... [/B]

1.可否請樓主上傳圖檔讓大夥測試一下
2.cad2000  :express->modify->polyline join(pljoin)是否合用(原說mpedit表達錯誤)

cqnj023

mpe不就可以解决吗，只需在“j”后在输入间距即可。

lsjjm

最初由 cqnj023 发布
[B]mpe不就可以解决吗，只需在“j”后在输入间距即可。 [/B]

按照你的思路可以移动多义线的端点吗?

陌生人

我看楼主的意思其实是多线连接, 但是表达不够直接,所以有些误导大家了:)
楼主打开的是别人做了防编辑处理的图?我觉得挺像,哈哈.
eachy版主以前提出过一个,把line,pline打断n 段后用solid来代替每一份.