[LISP程序]：关于polyline

[复制链接]

nigma

发表于 2005-12-16 14:42:20 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

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

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

在cad帮助中无意间看到的一段代码
(setq e1 (entnext))    ; Sets e1 to the polyline's entity name
(setq e2 (entnext e1)) ; Sets e2 to its first vertex
(setq ed (entget e2))    ; Sets ed to the vertex data
(setq ed
  (subst '(10 1.0 2.0)
(assoc 10 ed)       ; Changes the vertex's location in ed
ed                   ; to point (1,2)
  )
)
(entmod ed)             ; Moves the vertex in the drawing
(entupd e1)             ; Regenerates the polyline entity e1
另外要改变poly的z坐标可以用下边的代码
(if (= "LWPOLYLINE" (cdr (assoc 0 e1)));;判断这个实体是否是poyline
(progn
   (setq pp(car (assoc 38 e1)))
       (setq e1 (subst (cons 38 0) (assoc 38 e1) e1))
   (entmod e1) ;;
)
   )
这是本人程序中的一段,经测试无误.

setq, e1