用法
评论
建议
取 消
确 定
(defun line:get-lwpoints (en0 / ddlist dd1 tmplist) "生成多段线的点序" (setq ddlist nil) (setq tmplist (entget en0)) (repeat (cdr (assoc 90 (entget en0))) (setq dd1 (cdr (assoc 10 tmplist))) (setq tmplist (member (assoc 10 tmplist) tmplist)) (setq tmplist (cdr tmplist)) (setq ddlist (append ddlist (list dd1)))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号