乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 51|回复： 3

[编程交流] 绘制PLine

[复制链接]
Ohnoto

27

主题

126

帖子

99

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 09:23:04 | 显示全部楼层 |阅读模式
我们这里有一些代码，可以根据ACAD中的点插入块，我正在尝试调整代码中的某些点来绘制线。这是一个相当长的代码，所以我只想附加特定于绘制线的部分。
 
  2. ;;;-----------------  MyGPSLineLayer      MyLineLayer
  3. (EXAGS_LineFunction "gps-entrance"        "FOC")
  1. (defun EXAGS_CreateBaselineSet ()
  2.    (setq exagsBaselineSet
  3.         (ssget "_X" (list
  4.                (cons 0 "ARC,CIRCLE,ELLIPSE,LINE,LWPOLYLINE,POLYLINE,SPLINE")
  5.                (cons 8 "GPS-ROAD,BASELINE,EOG,EOP,FOGLINE,FOC")
  6.                )))
  7.    )
  1. (defun EXAGS_LineFunction (myGPSLineLayer myLineLayer)
  2.      (if
  3.    (setq pointSet (ssget "_X" (list (cons 0 "POINT")(cons 8 myGPSLineLayer))))                            ; declare the set (pointSet)
  4.    (progn                                                            
  5.        (setq cntr 0)                                                    
  6.        (while (< cntr (sslength pointSet))
  7.          (setq ename (ssname pointSet cntr))
  8.          (setq enlist (entget ename))
  9.          (setq pt (cdr (assoc 10 enlist)))
  10.          (setvar "clayer" myLineLayer) 
  11.          (setq pt2 (vlax-curve-getClosestPointto exagsBaselineSet pt))
  12.          (command "_pline" pt pt2)
  13.          (setq cntr (+ cntr 1))
  14.          )
  15.      )
  16.    )
  17.  )

目前，我遇到一个错误：无法获取ObjectID:set:6ca>
 
感谢您的帮助，
谢谢
回复

使用道具 举报

VVA

1

主题

308

帖子

308

银币

初来乍到

Rank: 1

铜币
8
发表于 2022-7-6 09:59:53 | 显示全部楼层 
  1. (setq pt2 (vlax-curve-getClosestPointto [color="red"]exagsBaselineSet[/color] pt))

exagsBaselineSet的类型应为vla对象，而不是选择集
如果我理解这个问题
  2. (defun EXAGS_LineFunction (myGPSLineLayer myLineLayer ObjList)
  3.      (if
  4.    (setq pointSet (ssget "_X" (list (cons 0 "POINT")(cons 8 myGPSLineLayer))))                            ; declare the set (pointSet)
  5.    (progn
  6.       (repeat (setq cntr (sslength exagsBaselineSet))
  7.  (setq ObjList (cons (ssname exagsBaselineSet (setq cntr (1- cntr))) ObjList))
  8.  )
  9.       (setq ObjList (mapcar 'vlax-ename->vla-object ObjList))
  10.       (setq cntr 0)
  11.       (setvar "clayer" myLineLayer)
  12.        (while (< cntr (sslength pointSet))
  13.          (setq ename (ssname pointSet cntr))
  14.          (setq enlist (entget ename))
  15.          (setq pt (cdr (assoc 10 enlist)))
  16.          (foreach Obj Objlist
  17.     (setq pt2 (vlax-curve-getClosestPointto Obj pt))
  18.     (command "_pline" "_none" pt "_none" pt2 "")
  19.     )
  20.          (setq cntr (+ cntr 1))
  21.          )
  22.      )
  23.    )
  24.  )
回复

使用道具 举报

Ohnoto

27

主题

126

帖子

99

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:16:20 | 显示全部楼层
谢谢
 
出现了一个小问题，在这里绘制的线不仅是最近的线，而且是更远的线。
 
102310ja01a04arl81ba0l.jpg
回复

使用道具 举报

Ohnoto

27

主题

126

帖子

99

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
135
发表于 2022-7-6 10:25:20 | 显示全部楼层
有没有关于如何解决这个问题的建议？
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 03:05 , Processed in 0.339972 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表