杜阳 发表于 2014-12-3 15:48:25

请各位老师进来看看我这个代码那个地方错了，给修改一下

(Defun C:cjlj (/ Ss1 ss2 Pt1 Pt2 p1 p2)
(vl-load-com)
(Setvar "Cmdecho" 0)
    (Setq Pt1 (Getvar "Vsmin"))
    (Setq Pt2 (Getvar "Vsmax"))
    (Setq Ss1 (Entsel "\n 选择1线:"))
    (Setq Ss2 (Entsel "\n 选择2线:"))
    (Setq p1s (vlax-curve-getstartpoint (car ss1)))
    (Setq p1d (vlax-curve-getendpoint (car ss1)))
    (Setq p2d (vlax-curve-getendpoint (car ss2)))
    (Setq p2s (vlax-curve-getstartpoint (car ss2)))
    (setq Z1(car(assoc 38 (entget (car ss1)))))
    (setq Z2(car(assoc 38 (entget (car ss2)))))
(setq d1 (distance p1s p2s)
      d2 (distance p1s p2d)
      d3 (distance p1d p2s)
      d4 (distance p1d p2d)
)
(cond
      ((= d1 min(d1 d2 d3 d4))(setq p1 p1s p2 p2s))
      ((= d2 min(d1 d2 d3 d4))(setq p1 p1s p2 p2d))
      ((= d3 min(d1 d2 d3 d4))(setq p1 p1d p2 p2s))
      (T (setq p1 p1d p2 p2d))
)

(if (= z1 z2)
(progn
(Vl-Cmdf "line" p1 p2 "")
(Vl-Cmdf ".Pedit" Ss1 "Yes" "J" "C" Pt1 Pt2 "" "" )
(Vl-Cmdf ".Pedit" Ss1 "Yes" "s" Pt1 Pt2 "" "")
)
)
(Setvar "Cmdecho" 1)
(Princ)
)


我的意图是：
1，有两个线，使两个线的最近端点连接
2，连接后对整条线进行拟合
主要是用于等高线连接应用

crazylsp 发表于 2014-12-3 16:50:58

连接。
(setvar "peditaccept" 1)

(command "pedit" "m"ss1 "" "j""0" "" )

(setvar "peditaccept" 0)

ZZXXQQ 发表于 2014-12-3 21:10:54

;我的意图是：
;1，有两个线，使两个线的最近端点连接
;2，连接后对整条线进行拟合
;主要是用于等高线连接应用
(defun C:cjlj (/ Ss1 ss2 Pt1 Pt2 p1 p2)
(vl-load-com)
(setvar "Cmdecho" 0)
(setq Ss1 (entsel "\n 选择1线:"))
(setq Ss2 (entsel "\n 选择2线:"))
(setq p1s (vlax-curve-getStartPoint (car ss1)))
(setq p1d (vlax-curve-getEndPoint (car ss1)))
(setq p2d (vlax-curve-getEndPoint (car ss2)))
(setq p2s (vlax-curve-getStartPoint (car ss2)))
(setq Z1 (car(assoc 38 (entget (car ss1)))))
(setq Z2 (car(assoc 38 (entget (car ss2)))))
(setq d1 (distance p1s p2s)
      d2 (distance p1s p2d)
      d3 (distance p1d p2s)
      d4 (distance p1d p2d))
(cond
    ((equal d1 (min d1 d2 d3 d4) 1e-5) (setq p1 p1s p2 p2s))
    ((equal d2 (min d1 d2 d3 d4) 1e-5) (setq p1 p1s p2 p2d))
    ((equal d3 (min d1 d2 d3 d4) 1e-5) (setq p1 p1d p2 p2s))
    (T (setq p1 p1d p2 p2d))
)
(if (= z1 z2)
    (vl-cmdf "line" p1 p2 "" ".Pedit" "L" "Yes" "J" Ss1 ss2 "" "")
)
(setvar "Cmdecho" 1)
(princ)
)

杜阳 发表于 2014-12-4 19:30:26

ZZXXQQ 发表于 2014-12-3 21:10 static/image/common/back.gif


谢谢老师，线连接在一起了没有拟合图层也改变了   谢谢你了老师我自己在看看   

杜阳 发表于 2014-12-4 19:31:13

ZZXXQQ 发表于 2014-12-3 21:10 static/image/common/back.gif


老师你一出手基本就成功了   谢谢你了你帮助了我几次了谢谢老师
页: [1]
查看完整版本: 请各位老师进来看看我这个代码那个地方错了，给修改一下