统计信息
现在还没有相册
现在还没有动态
- 统计当前图中的图块数量 2005-08-19
- ;统计图块数量 (DEFUN C:SUMBLK () (IF (SETQ SS (SSGET "X" (LIST (CONS 0 "INSERT")))) (PROGN (SETQ SL (SSLENGTH SS) I 0 BL (LIST)) &nbs ...
- 将目录中的DWG文件批量转换成DXF文件（FOR R14） 2005-07-26
- 粗糙度标注 2005-07-20
- (DEFUN C:ROUGH () (SETVAR "CMDECHO" 0) (SETQ OLDOS1 (GETVAR "OSMODE") SC (GETVAR "DIMSCALE") H (* (IF (> SC 0) ...
-
- kexiya123
- 大佬，你好！我以前收集到不知哪位大侠编制的旋转体求重量的程序，然后自己稍微改动了一下，但是这个程序不稳定，程序能够提取到封闭区域形心，但是后面计算时有时候会出现偏差，由于对lisp理解比较粗浅，一时找不到原因，肯请大佬出手。 程序如下： (defun c:xzt1(/ ent obj pt ptls ss) (setvar "cmdecho" 0) (command "-style" "HZ1" "lxt9.shx,hzfs.shx" "0" "0.7" "0" "n" "n" ... ...
-
- luojie110
- 版主，您好。编译时出错，; 错误: 参数值错误: 非负: -1 如何解决？
-
- 皇上快溜
- 谢谢老大
-
- 皇上快溜
- 谢谢老大，梦寐以求的功能实现了
ZZXXQQ: (setq pt3 (polar pt2 (angle pt1 pt2) 10))
-
- 皇上快溜
- 老大你好，这段小代码想定义那个“pt3"不知道怎么定义，想请你指点一下，打扰了，谢谢你
(defun c:qaqa()
(setq pt1 (getpoint "\n基点:"))
pt2 (getpoint pt1 "\n确定方向的第二点:")
pt3 (list
(Pt3=(PT1+ 10))
就是pt3在沿pt1和pt2确定的方向上，距离pt1正交10mm的位置
-
- 皇上快溜
- 谢谢版主，程序很好用，谢谢
ZZXXQQ: (if(/= nam "")
(progn
(command "text" (polar p0 (* pi 1.5) (* dz(+ (* (getvar "di ...
-
- 皇上快溜
- 版主你好。我这有个小程序，它输出文本的行间距是固定的，2.5。能不能让它的行间距随字高的变化自动变化，如字高的0.8倍？ (if(/= nam "") (progn (command "text" (polar p0 (* pi 1.5) (* dz(+ 2.5 (getvar "dimtxt")))) (getvar "dimtxt") "0" nam) &nbs ... ...
-
- 皇上快溜
- 你好，请你帮我看看这个好吗？
http://bbs.mjtd.com/thread-172629-1-1.html
-
- 皇上快溜
- 谢谢版主大人，你小小一改动，让我完善了很多应用
ZZXXQQ: (command "_.leader" pause pause "" "" "" (strcat "正面铣深" (getstring "深 ...
-
- 皇上快溜
- 谢谢版主大人，你小小一改动，让我完善了很多应用
ZZXXQQ: (command "_.leader" pause pause "" "" "" (strcat "正面铣深" (getstring "深 ...
-
- 皇上快溜
- ZZXXQQ版主好，感谢你在http://bbs.mjtd.com/thread-172581-1-1.html的指点，让我改了好几个程序，，，
我这还有一个小程序想请你教我一下
(defun c:ZMX()
(command "_.leader" pause pause "" "" "" "正面铣深0.00" "" )(princ))
想让文本 "正面铣深0.00" 中的 “0.00” 可以在命令行中人工输入数值
请问，要添加些什么词句？
-
- wuzheng80425
- 谢谢ZZXXQQ版主，爱死你了
ZZXXQQ: @是相对坐标。后面应该跟坐标数，无坐标时为前一点。
-
- lhsjms009
- 谢谢解答！
-
- ZZXXQQ
- 1、取图中全部图块；
2、循环对每个图块处理。
-
- 铁血秦狼
- http://bbs.mjtd.com/thread-170232-1-1.html大神能不能帮我知道一下，我平时只会一些小的程序编写，这个问题主要是依据编码提取同类型图块进入到一个新层，我只会提取单个(setq dgxj (ssget "X" (list (list -3 (list "SOUTH" (cons 1000 "201102"))))))，但是如何进行批量提取并放置在某个新建层中，还望大神指点迷津
-
- 铁血秦狼
- 大神你可不可以帮我指导一下这个问题http://bbs.mjtd.com/thread-170232-1-1.html
最近访客
群组
现在还没有群组