乐筑天下

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

[编程交流] 多重引线文字Lisp

[复制链接]

8

主题

25

帖子

17

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:18:13 | 显示全部楼层 |阅读模式
大家好,这个网站上的每个人,
 
 
我叫kamran saleem,来自ksa,我是机械制图员,我需要你的帮助来编辑文字,我有20多个或30个图纸,还有文字是多重引线,我想改变文字高度,我怎么能?
 
 
 
请帮我重新评分。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:32:18 | 显示全部楼层
不太难
 
  1. (defun c:mlhgt (/ ss hgt)
  2. (vl-load-com)
  3. (if (and (setq ss (ssget "_X" '((0 . "MULTILEADER"))))
  4.           (setq hgt (getdist "\nSpecify New Height: ")))
  5.    (mapcar
  6.      (function
  7.        (lambda (x)
  8.          (vla-put-TextHeight x hgt)))
  9.      (mapcar 'vlax-ename->vla-object
  10.        (mapcar 'cadr (ssnamex ss))))
  11.    (princ "\n<< No MLEADERs in Drawing >>"))
  12. (princ))
回复

使用道具 举报

8

主题

25

帖子

17

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:41:53 | 显示全部楼层
亲爱的
李,你能给我这个代码的lisp文件吗,因为我不知道如何制作lisp文件,如果你不介意的话,请谢谢,
 
或者,请告诉我如何用这段代码制作lisp文件,或者我如何使用这段代码,我真的非常感谢你,
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:52:04 | 显示全部楼层
只需将代码复制到新的记事本文档中,并将其另存为。lsp,其中文件名可以是您选择的任何内容。
 
确保“另存为类型”框设置为“所有文件”。
 
然后正常加载并运行LISP。
更多信息可以在这里找到。
 
回复

使用道具 举报

8

主题

25

帖子

17

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:52:39 | 显示全部楼层
谢谢亲爱的realy vary谢谢
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:05:37 | 显示全部楼层
 
没有问题,伙计
回复

使用道具 举报

8

主题

25

帖子

17

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 15:12:22 | 显示全部楼层
李,你好,
 
 
我附上了这张图纸,我不能这样做,你告诉我与lisp文件和第二,这我不能从这个图纸删除leyer。你能给我解释一下图层和文字吗。
SH-MH-203。图纸
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:26:52 | 显示全部楼层
你不能操作LISP文件吗?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 03:03 , Processed in 0.598941 second(s), 68 queries .

© 2020-2025 乐筑天下

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