修改LWPolyline的顶点坐标

Lisphk · 发表于 2016-8-26 12:26:36

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

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

×

(defun Test (e ed / i vt)
(setq i 0)
(repeat (length ed)
(if (= (car (nth i ed)) 10) ; if item is a vertex
(progn
(setq vt (cdr (nth i ed))) ; get vertex values
(setq X (car vt)) ; get the x value
(setq Y (cadr vt)) ; get the y value
(setq Y (+ 5 Y)) ; increment the Y value by 5 units
; replace the old y value with the
; new y value
(setq vt (subst
Y
(nth 1 vt)
vt
)
) ; update the entity definition with
; new vertex information
(setq ed (subst
(cons 10 vt)
(nth i ed)
ed
)
)
(entmod ed) ; update the drawing
) ; progn
) ; if
(setq i (1+ i))
) ; repeat
)

(defun Test (e ed / i vt) 
  (setq i 0) 
  (repeat (length ed) 
    (if (= (car (nth i ed)) 10)               ; if item is a vertex 
      (progn 
        (setq vt (cdr (nth i ed)))     ; get vertex values 
        (setq X (car vt))               ; get the x value 
        (setq Y (cadr vt))               ; get the y value 
        (setq Y (+ 5 Y))               ; increment the Y value by 5 units 
                                       ; replace the old y value with the 
                                       ; new y value 
        (setq vt (subst 
                   Y 
                   (nth 1 vt) 
                   vt 
                 ) 
        )                               ; update the entity definition with 
                                       ; new vertex information 
        (setq ed (subst 
                   (cons 10 vt) 
                   (nth i ed) 
                   ed 
                 ) 
        ) 
        (entmod ed)                       ; update the drawing 
      )                                       ; progn 
    )                                       ; if 
    (setq i (1+ i)) 
  )                                       ; repeat 
)

;Test

游客，如果您要查看本帖隐藏内容请回复

lucas3 · 发表于 2016-8-26 14:57:48

这个论坛上还蛮多的

HLCAD · 发表于 2016-8-27 07:43:58

见见楼主的方法。

杜流浪人 · 发表于 2016-8-30 20:23:40

00000000000000000

819534890 · 发表于 2016-8-31 09:15:23

学习学习学习

q3_2006 · 发表于 2016-8-31 17:04:35

代码开头看着很熟悉..

yoyoho · 发表于 2016-9-3 08:30:31

学习学习学习!!!!!

yjch · 发表于 2016-9-7 20:39:03

好好学习天天向上

434939575 · 发表于 2017-2-3 11:37:20

感谢大师无私奉献！

欢＋乐 · 发表于 2017-5-17 13:07:45

修改LWPolyline的顶点坐标修改LWPolyline的顶点坐标

winerfjy · 发表于 2017-5-18 09:12:30

看一下如何实现

xgr669 · 发表于 2017-9-19 14:21:22

修改LWPolyline的顶点坐标

liutong1997 · 发表于 2017-10-28 07:47:15

应该是很好的代码,谢谢

9635luyu · 发表于 2017-11-1 15:45:50

看看这个有用的

zjy2999 · 发表于 2017-11-13 11:04:05

学习！！！！！！！！！

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

[每日一码] 修改LWPolyline的顶点坐标

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