怎样取得沿曲线的等高线?[已经解决]

/db_自贡黄明儒_ · 发表于 2014-1-3 10:45:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 /db_自贡黄明儒_ 于 2014-1-3 11:55 编辑

(setq ss (ssget "F" pts '((0 . "LWPOLYLINE")))),pts点列表的Z坐标均为0，为什么这种方法不能取得沿线的等高线，各位高人有什么好方?法

st788796 · 发表于 2014-1-3 11:11:05

在api应用中写过这个，选中后的点把对应等高线z加上

/db_自贡黄明儒_ · 发表于 2014-1-3 11:16:55

st788796 发表于 2014-1-3 11:11
在api应用中写过这个，选中后的点把对应等高线z加上

关键是这种方法不能取得沿线等高线，怎么加等高线的Z值？

st788796 · 发表于 2014-1-3 11:43:19

ssnamex啊

newer · 发表于 2014-1-3 16:29:11

怎么解决的啊，黄工。

/db_自贡黄明儒_ · 发表于 2014-1-3 16:34:55

newer 发表于 2014-1-3 16:29
怎么解决的啊，黄工。

是我没注意到这次等高线不是LWPOLYLINE{:soso_e113:}

newer · 发表于 2014-1-3 16:57:44

/db_自贡黄明儒_ 发表于 2014-1-3 16:34
是我没注意到这次等高线不是LWPOLYLINE

{:soso_e140:} 那以后就 ((0 . "*LINE"))

st788796 · 发表于 2014-1-4 17:32:25

这样就可以了

(defun c:tt (/ grpts p pts)
(defun grpts (pts)
(mapcar '(lambda (x y)
(grdraw x y 1 1)
)
pts
(cdr pts)
)
t
)
(while (setq p (if pts
(getpoint (car pts) "\nNext Point: ")
(getpoint "\nFirest Point: ")
)
)
(setq pts (cons p pts))
(if (> (length pts) 1)
(grpts pts)
)
)
(if (and (> (length pts) 1)
(setq ss (ssget "F" pts '((0 . "*Polyline"))))
)
(progn
(setq pts (mapcar '(lambda (x / z p)
(setq z (caddr (vlax-curve-getstartpoint (cadr x)))
p (cadr (last x))
)
(list (car p) (cadr p) z)
)
(ssnamex ss)
)
)
)
)
(princ (reverse pts))
(princ)
)

(defun c:tt (/ grpts p pts) 
  (defun grpts (pts) 
    (mapcar '(lambda (x y) 
               (grdraw x y 1 1) 
             ) 
            pts 
            (cdr pts) 
    ) 
    t 
  ) 
  (while (setq p (if pts 
                   (getpoint (car pts) "\nNext Point: ") 
                   (getpoint "\nFirest Point: ") 
                 ) 
         ) 
 
    (setq pts (cons p pts)) 
    (if        (> (length pts) 1) 
      (grpts pts) 
    ) 
  ) 
  (if (and (> (length pts) 1) 
           (setq ss (ssget "F" pts '((0 . "*Polyline")))) 
      ) 
    (progn 
      (setq pts        (mapcar        '(lambda (x / z p) 
                           (setq z (caddr (vlax-curve-getstartpoint (cadr x))) 
                                 p (cadr (last x)) 
                           ) 
                           (list (car p) (cadr p) z) 
                         ) 
                        (ssnamex ss) 
                ) 
      ) 
    ) 
  ) 
  (princ (reverse pts)) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[求助] 怎样取得沿曲线的等高线?[已经解决]

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评