乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
楼主: 121madhu

[编程交流] 偏移线产生差异l

[复制链接]

55

主题

402

帖子

357

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
274
发表于 2022-7-6 00:26:41 | 显示全部楼层
非常感谢。
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 00:31:25 | 显示全部楼层
 
没问题。。。
回复

使用道具 举报

16

主题

50

帖子

34

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-6 00:33:45 | 显示全部楼层
谢谢satish和tharwat
我的请求指定哪一侧偏移,并在按Esc键时继续此lisp。
 
另一种是线型
回复

使用道具 举报

55

主题

402

帖子

357

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
274
发表于 2022-7-6 00:37:23 | 显示全部楼层
欢迎光临,
但我不明白你接下来说什么,你到底想做什么。。。。明确说明或举例说明
回复

使用道具 举报

55

主题

402

帖子

357

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
274
发表于 2022-7-6 00:38:58 | 显示全部楼层
试试这个:-
  1. (DEFUN C:TEST (/ A B C D)
  2. (VL-LOAD-COM)
  3. (WHILE (/= (SETQ A (getstring "\nSpecify Name of New Layer :")) "")
  4.    (SETQ B (CAR (ENTSEL "\nSelect Line to Offset :")))
  5.    (INITGET 1)
  6.    (SETQ C (GETDIST "\nSpecify Offset Distance :"))
  7.    (SETQ D (GETPOINT "\nSpecify Point on Side to Offset :"))
  8.    (VLA-ADD (VLA-GET-LAYERS
  9.           (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
  10.         )
  11.         A
  12.    )
  13.    (VLA-OFFSET
  14.      (VLAX-ENAME->VLA-OBJECT B)
  15.      (POINTSIDE B D)
  16.    )
  17.    (VLA-PUT-LAYER (VLAX-ENAME->VLA-OBJECT (ENTLAST)) A)
  18. )
  19. (PRINC)
  20. )
  21. (DEFUN POINTSIDE (OBJ PNT / P1 PA P2)
  22. (SETQ    P1 (VLAX-CURVE-GETCLOSESTPOINTTO OBJ (TRANS PNT 1 0))
  23.    PA (VLAX-CURVE-GETPARAMATPOINT OBJ P1)
  24. )
  25. (IF (EQUAL '(0.0 0.0 0.0)
  26.         (VLAX-CURVE-GETSECONDDERIV OBJ PA)
  27.         1e-8
  28.      )
  29.    (SETQ P1 (VLAX-CURVE-GETPOINTATPARAM OBJ (FIX PA))
  30.      P2 (VLAX-CURVE-GETPOINTATPARAM OBJ (1+ (FIX PA)))
  31.    )
  32.    (SETQ P2 (MAPCAR '+ P1 (VLAX-CURVE-GETFIRSTDERIV OBJ PA)))
  33. )
  34. (IF (MINUSP (SIN (- (ANGLE P1 PNT) (ANGLE P2 PNT))))
  35.    (SETQ C (- C))
  36.    (SETQ C (+ C))
  37. )
  38. )
回复

使用道具 举报

16

主题

50

帖子

34

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-6 00:42:00 | 显示全部楼层
是的,我看起来很完美
非常感谢萨蒂什。
 
我正在创建此线型并加载
 
示例:-当我偏移线时
层名称:-电信
所以我的线路类型在层也电信其可能与否
回复

使用道具 举报

55

主题

402

帖子

357

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
274
发表于 2022-7-6 00:45:15 | 显示全部楼层
您是否创建了自己的线型。。。如果是,那么你把它保存在哪里。。。。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 00:49:05 | 显示全部楼层
只需要添加这一行
 
  1. (VLA-PUT-LINETYPE (VLAX-ENAME->VLA-OBJECT (ENTLAST)) A)
回复

使用道具 举报

16

主题

50

帖子

34

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-6 00:50:57 | 显示全部楼层
 
是的,保存我的桌面名马。林
 
 
 
消息传来时出错
:; 错误:自动化错误。未找到密钥
回复

使用道具 举报

55

主题

402

帖子

357

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
274
发表于 2022-7-6 00:55:46 | 显示全部楼层
您是否创建了*。lin文件用于每个线型或该ma中。lin文件只有所有线型可用???
 
 
这是我的密码吗????
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-17 17:14 , Processed in 1.116848 second(s), 71 queries .

© 2020-2025 乐筑天下

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