乐筑天下

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

[编程交流] 组合_dimlinear和UCS

[复制链接]

10

主题

35

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 09:27:10 | 显示全部楼层 |阅读模式
任何身体帮助。。下面介绍如何将这两个命令结合起来。。我想把这个“Ucs”“e”和“u dimlinear”结合起来
命令发出后,its应要求选择对象更改UCS位置,然后自动更改其需要的线性。。没有给出dimlinear命令。。
 
(DEFUN C:测试()
(命令“ucs”“e”)
(命令“_dimlinear”)
(普林斯)
)
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 09:35:29 | 显示全部楼层
检查
 
  1. (defun c:test (/ ss)
  2. (if (setq ss (entsel "\n Select One object :"))
  3.    (progn
  4.      (command "_.ucs" "_e" ss )
  5.      (command "_.dimlinear" "" ss pause ))
  6.    (princ)
  7.    )
  8. (princ)
  9. )

 
塔瓦特
回复

使用道具 举报

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 09:40:39 | 显示全部楼层
我只是想知道,DIMALIGN或DIMLINEAR with Rotated选项是否适合您的需要?
 
当做
米尔恰
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 09:43:33 | 显示全部楼层
我想最需要的是将ucs移动到具有维度的选定实体。
 
当做
回复

使用道具 举报

10

主题

35

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 09:49:34 | 显示全部楼层
谢谢你的回复。。。照此看来,它工作得很好。实际上,根据该ucs,其放置相同的尺寸文本位置。但通常我们是为一条斜率线做尺寸标注!根据Ucs选择的方式(行顶部表示一个位置行底部表示暗文本是另一个位置)将出现。但根据这段代码,文本的颜色是相同的。根据ucs选择,应考虑。。你能帮忙吗
 
(定义c:测试(/ss)
(如果(setq ss(entsel“\n选择一个对象:”))
(程序
(命令“.ucs”“\u e”ss)
(命令“_.dimlinear”ss pause))
(普林斯)
)
(普林斯)
) 102713a5lhfhzgrflcwlz0.jpg
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 09:53:35 | 显示全部楼层
将ucs定位在所选线路上的好处是什么?
回复

使用道具 举报

10

主题

35

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 09:58:14 | 显示全部楼层
 
 
即根据该线位置(角度)的尺寸。Ucs位置(根据直线)更改后,我希望使用dimlinear方法进行尺寸标注。
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 10:03:08 | 显示全部楼层
将ucs更改为与图元成特定角度时,将导致下一个图元尺寸相应旋转。
 
所以事情会被随机搞混。这将导致维度远离选定图元。
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 10:04:28 | 显示全部楼层
这可能会帮助你实现你的目标。
 
  1. (defun c:test (/ ss e p1 p2 ent)
  2. ; Tharwat 14. 05. 2011
  3. (if (and (setq ss (entsel "\n Select One Line :"))
  4.           (eq (cdr (assoc 0 (setq e (entget (car ss))))) "LINE")
  5.      )
  6.    (progn
  7.      (if (> (car (setq p1 (cdr (assoc 10 e))))
  8.             (car (setq p2 (cdr (assoc 11 e))))
  9.          )
  10.        (progn
  11.          (setq ent (entmakex
  12.                      (list (cons 0 "LINE") (cons 10 p2) (cons 11 p1))
  13.                    )
  14.          )
  15.          (command "_.matchprop" ss ent "")
  16.          (command "_.ucs" "_e" ent)
  17.          (command "_.dimlinear" "" ss pause)
  18.          (entdel (car ss))
  19.        )
  20.        (progn
  21.          (command "_.ucs" "_e" ss)
  22.          (command "_.dimlinear" "" ss pause)
  23.        )
  24.      )
  25.    )
  26.    (princ "\n Please select line only")
  27. )
  28. (princ)
  29. )

 
塔瓦特
回复

使用道具 举报

10

主题

35

帖子

25

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 10:11:55 | 显示全部楼层
萨尔瓦特
根据这个代码有什么区别?我试过这个。。变暗文本到达相同位置(角度)。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-7 03:18 , Processed in 0.397994 second(s), 85 queries .

© 2020-2025 乐筑天下

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