[阿然][阿然] 16:57:38
(command "DTEXT" "m" text_pt text_di 0 text "")
这句话和当前字体的字高设置有关系
Yakamoz 16:58:10
字高是text_di啊
前面已经赋值了
[阿然][阿然] 16:58:23
当前字体设置的字高
[夏生生][x_s_s_1]生无可恋 16:58:44
(setq text_di (getdist "
指定文字高度:"))
getreal
Yakamoz 16:58:46
运行的结果是到text这步时
[阿然][阿然] 16:58:50
如果当前字体设置的字高不为0的时候,dtext不会问你输入的字高要多少,你这个command就要调整
自己试验下
Yakamoz 16:58:59
让我再输一次字符
[阿然](346853401) 16:58:43
如果当前字体设置的字高不为0的时候,dtext不会问你输入的字高要多少,你这个command就要调整
这是什么意思
什么叫不会问输入的字高要多少
[雨的节奏][雨的节奏] 17:02:58
、、、
服了你了、、
一句话就解决的问题就你事情多
Yakamoz 17:04:16
问题是我没看到哪句话把我的问题解决了啊
[天财]天财 17:05:10
text_di是什么参数
Yakamoz 17:05:20
字高。
[雨的节奏][雨的节奏] 17:08:20
(defun c:tx()
(setq text (getstring "
输入文字:")
text_pt (getpoint "
指定文字插入点:")
text_di (getdist "
指定文字高度:")) ;end set
(if (/= text "")
(command "DTEXT" "m" text_pt text_di 0 text "")
) ;end if
) ;end
(prompt "********************")
(prin1)
[雨的节奏][雨的节奏] 17:09:12
你就是得非要别人写个给你你才知道怎样写吗
Yakamoz 17:10:30
你试一下。
看看和我的代码运行结果有什么不同
[雨的节奏][雨的节奏] 17:11:02
换一下顺序吧
Yakamoz 17:11:23
只是写得简化了
但是运行结果还是一样的
没有解决问题
(command "DTEXT" "m" text_pt text_di 0 text "")
运行到这一步时
到text时
程序不识别前面输入的字符
需要重输入
[雨的节奏][雨的节奏] 17:12:35
(defun c:tx()
(setq text (getstring "
输入文字:"))
(if (/= text "")
(progn
(setq text_pt (getpoint "
指定文字插入点:")
text_di (getdist "
指定文字高度:")) ;end set
(command "DTEXT" "m" text_pt text_di 0 text "")
);end progn
(alert "输入字符为空")
) ;end if
) ;end
Yakamoz 17:13:39
还是没区别。
Yakamoz 17:15:15
(command "DTEXT" "m" text_pt text_di 0 text "")
[雨的节奏][雨的节奏] 17:15:18
(defun c:tx()
(setq texts (getstring "
输入文字:"))
(if (/= texts "")
(progn
(setq text_pt (getpoint "
指定文字插入点:")
text_di (getdist "
指定文字高度:")) ;end set
(command "TEXT" "m" text_pt text_di 0 texts "")
);end progn
(alert "输入字符为空")
) ;end if
) ;end
Yakamoz 17:15:28
好像到这句text这个参数不起作用
[雨的节奏][雨的节奏] 17:16:11
[qqimg]oldimg/{FCB9D79B-DDD3-9F77-1527-61A6F2AB5C37}.jpg[/qqimg]
Yakamoz 17:16:52
这次可以了
为什么换成texts就行了
[雨的节奏][雨的节奏] 17:17:47
[qqimg]oldimg/{4A16A091-3148-22B0-57FF-17359FBB2468}.jpg[/qqimg]
你觉得只换了变量吗
Yakamoz 17:18:26
dtext换成了text
Yakamoz 17:19:23
这两个有什么区别
在cad命令里好像结果一样
[雨的节奏][雨的节奏] 17:19:59
你难道是真的不懂if是怎么用的吗
Yakamoz 17:20:59
(defun c:tx()
(setq text (getstring "
输入文字:"))
(if (= text "")
(prin1)
)
(setq text_pt (getpoint "
指定文字插入点:"))
(setq text_di (getdist "
指定文字高度:"))
(command "TEXT" text_pt text_di 0 text "")
(prin1)
)
(prompt "********************")
(prin1)
这是我最初的程序
里面dtext换成了text
运行正常了
和if有什么关系。
[雨的节奏][雨的节奏] 17:22:21
[qqimg]oldimg/{514E8F56-87E1-5828-5039-A6897CF423C8}.gif[/qqimg]
你输入空格的话还是会要你输入高度、、
Yakamoz 17:23:40
哦。对的。
所以我最初的设计是想。
if成立的话
程序结束
不再往下进行了
[leyouyou001]youyou 17:24:30
Yakamoz 17:24:35
不过lisp是不是没有跳出程序的语句呢
[leyouyou001]youyou 17:24:44
我怎么就是学不会呢
[天财]天财 17:24:58
[qqimg]oldimg/{C44A1F2D-F06F-CC87-52A6-81DC44B92DF2}.gif[/qqimg]
Yakamoz 17:25:02
比如其他语言里的break,quit等
[天财]天财 17:25:05
有没好点的功能推荐
[Chpmould]Bluebird 17:25:49
Lisp没有break语句
[亮]123379932 17:26:08
(defun c:wz ()
(setq zjzb (getpoint "请输入坐标"))
(setq gd (getdist "请输入文字高度"))
(setq str (getstring "请输入文字"))
(setq data1 (list (cons 0 "TEXT")
(cons 8 "0")
(cons 6 "Continuous")
(cons 10 zjzb)
(cons 11 zjzb)
(cons 40 GD)
(cons 1 str)
(cons 41 1)
(cons 7 "HZ")
(cons 72 4)
)
)
(entmakex data1)
)
Yakamoz 17:26:19
那就只能一直运行完整个程序喽
[jin]于与 17:26:56
密码 17:25:36
隆回县雷鸣村书记身为一村党支部书记,不为民办事,反推诿阻扰,歪典事实,以求达到赤裸裸敲诈勒索肖某钱财的目的,不择手段胁迫支使村民去同村村民肖某家闹事,要求肖某拿几万块钱来摆平闹事!胁迫罗某闹事冲击政府机关,要求政府帮其歪曲事实,达到敲诈勒索的目的!党和国家法纪何在?社会公平正义何在?!
[天财]天财 17:27:43
这种事情 只能用机关枪说话
用真理寻找不到原因
[天财]天财 17:28:40
真的认为党是为民办事那是你的信仰有问题
[雨的节奏][雨的节奏] 17:28:58
(defun c:wz ()
(setq zjzb (getpoint "请输入坐标"))
gd (getdist "请输入文字高度"))
str (getstring "请输入文字"))
(entmake (list (cons 0 "TEXT")
(cons 10 zjzb)
(cons 40 GD)
(cons 1 str)
)
) ;end entmake
)
Yakamoz 17:29:34
我擦。
有必要写得这么深嘛。
Yakamoz 17:30:54
这样写有什么好处呢?
[雨的节奏][雨的节奏] 17:31:01
快
Yakamoz 17:31:03
除了练习一下组码
[雨的节奏][雨的节奏] 17:31:12
不过一两个没什么感觉、、
你要写几百个字的话就有感觉了
Yakamoz 17:31:44
这样新做一个,不是增加错误的机率嘛
[阿然][阿然] 17:32:15
学的过程就是不断犯错改正的过程
[雨的节奏][雨的节奏] 17:32:21
[qqimg]oldimg/{F8ADADA6-9126-FB80-815A-8AB472C3221B}.gif[/qqimg]
[阿然][阿然] 17:32:25
想学就不要怕错
[雨的节奏][雨的节奏] 17:32:36
想错就不要怕被羞辱
Yakamoz 17:33:02
嗯。不过这样写是挺练组码的使用的
[q530496591][q530496591]小菜鸟 17:33:19
说得那么可怕!
不就是被BS了嘛。。不一样的
[雨的节奏][雨的节奏] 17:33:31
错了小心被人轮
[q530496591][q530496591]小菜鸟 17:33:41
新手必须有被BS的觉悟
[阿然][阿然] 17:34:10
被羞辱不至于吧
[q530496591][q530496591]小菜鸟 17:34:13
等你老手了你也可以BS别人嘛
就是
Yakamoz 17:34:22
不过这样可读性就低了吧
[q530496591][q530496591]小菜鸟 17:34:24
BS一下还可以增加动力
我要是有问题我天天被BS都不怕
[雨的节奏][雨的节奏] 17:35:16
目测楼上已经没问题了
[q530496591][q530496591]小菜鸟 17:35:34
有。。大把。
只是现在忙着上班。。
我还是菜呢
[leyouyou001]youyou 17:35:45
牛逼,大侠
Yakamoz 17:35:47
嗯。
还有一个新问题啊
text和dtext的区别
为什么一个成,一个不行
[雨的节奏][雨的节奏] 17:36:26
[qqimg]oldimg/{514E8F56-87E1-5828-5039-A6897CF423C8}.gif[/qqimg]
Yakamoz 17:38:39
不过多谢雨的节奏了。
帮我解决了问题
[雨的节奏][雨的节奏] 17:38:58
晕死、、
[q530496591][q530496591]小菜鸟 17:39:13
下班了还不去吃饭啊
Yakamoz 17:39:18
还介绍了一种不错的思路。 |