明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 834|回复: 9

[测绘] 求自然幢绘制

[复制链接]
发表于 2019-11-19 20:12 | 显示全部楼层 |阅读模式

谁有这个插件

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2019-11-19 21:27 | 显示全部楼层
本帖最后由 youyou3810 于 2019-11-19 21:28 编辑

  1. (defun c:77 (/ ss n en pt)
  2. (setq ss (ssget ))
  3. (if ss
  4.        (progn
  5. (entmake
  6.     (list
  7.      '(0 . "LWPOLYLINE")
  8.   '(100 . "AcDbEntity")
  9.   '(100 . "AcDbPolyline")
  10.   '(90 . 4)
  11.   '(70 . 1)
  12.   '(43 . 0.0)
  13.   '(38 . 0.0)
  14.   '(39 . 0.0)
  15.        (repeat (setq n (sslength ss))
  16.          (setq en (ssname ss (setq n (1- n))))
  17.          (setq pt (cdr (assoc 10 (entget en))))
  18.     (cons 10 pt)
  19.          )
  20.    )
  21.        )
  22.        )
  23.   )
  24. )
没什么作用 后面不知道怎么做
 楼主| 发表于 2019-11-19 22:07 | 显示全部楼层
  1. (defun c:77 (/ ss n en pt)
  2. (setq ss (ssget ))
  3. (if ss
  4.        (progn

  5.        (repeat (setq n (sslength ss))
  6.          (setq en (ssname ss (setq n (1- n))))
  7.          (setq pt (cdr (assoc 10 (entget en))))
  8.          (entmake (list '(0 . "CIRCLE")'(40 . 0.5)'(8 . "dwdw")(cons 10 pt)))

  9.        )
  10.        )
  11.   )
  12. )
测试结果只取了两个顶点其他顶点信息没有
 楼主| 发表于 2019-11-21 00:29 | 显示全部楼层
本帖最后由 youyou3810 于 2019-11-21 00:32 编辑

  1. (defun c:44 (/ ss n en en1_data oldr)(setq ss (ssget ))
  2. (if ss
  3.        (progn

  4.        (repeat (setq n (sslength ss))
  5.          (setq  en (ssname ss (setq n (1- n))))
  6.          ;转换为vl对象
  7. (setq en (vlax-ename->vla-object en))
  8.          ;获取坐标
  9.   (setq thelist (vlax-get-property en 'coordinates))
  10.          ;转换为列表
  11.   (setq thelist (vlax-safearray->list  (variant-value thelist)))
  12.          ;将计数器清零
  13.          (setq n 0)
  14.   ;开始循环
  15.   (repeat (/ (length thelist) 2)
  16.    ;获取x坐标
  17. (setq xval (rtos (nth n thelist)))
  18.   ;增加计数器
  19.   (setq n (1+ n))
  20.      ;获取y坐标
  21. (setq yval (rtos (nth n thelist)))
  22.     (entmake (list '(0 . "CIRCLE")'(40 . 0.5)'(8 . "dwdw")(cons 10 xval yval)))
  23.     (setq n (1+ n))
  24.     );repeat
  25.          );repeat
  26.          );progn
  27.        );if
  28.        );defun

现在获取到各个顶点坐标
(entmake (list '(0 . "CIRCLE")'(40 . 0.5)'(8 . "dwdw")(cons 10 xval yval)))
(cons 10 xval yval)))这个xy坐标不能正常使用求解
 楼主| 发表于 2019-11-21 18:11 | 显示全部楼层
(entmake (list '(0 . "CIRCLE")'(40 . 0.5)'(8 . "dwdw")(cons 10 (strcat xval "," yval))))错误: DXF 组不正确: (10 . "584219.2643,3292468.3060")
 楼主| 发表于 2019-11-22 12:51 | 显示全部楼层
求助 等着用
发表于 2019-11-22 20:21 | 显示全部楼层
加载XLRX_API
  1. (defun c:tt ()
  2.   (while (and
  3.            (setq ss (ssget '((0 . "*polyline")
  4.                              (-4 . "<or")
  5.                              (70 . 1)
  6.                              (70 . 129)
  7.                              (-4 . "or>")
  8.                             )
  9.                     )
  10.            )
  11.            (> (sslength ss) 1)
  12.          )
  13.     (xlrx-copy ss)
  14.     (setq e1 (ssname ss 0))
  15.     (ssdel e1 ss)
  16.     (setq s (XLRX-Curve-Boolean e1 ss 0 1e-3))
  17.     (mapcar '(lambda (x) (xlrx-set x "color" 7)) s)
  18.   )
  19.   (princ)
  20. )
 楼主| 发表于 2019-11-24 22:04 | 显示全部楼层
厉害!!XLRX_API函数说明文档.chm打开没有文字

点评

右键解除锁定  发表于 2019-11-25 11:30
 楼主| 发表于 2020-10-6 23:59 | 显示全部楼层
youyou3810 发表于 2019-11-24 22:04
厉害!!XLRX_API函数说明文档.chm打开没有文字

如何生成线段放到指定图层
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 18:17 , Processed in 0.308925 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表