墨梅雪姬 发表于 2013-5-17 09:43:47

高手帮忙啊！！！


ID_SJD[三角点]^C^C(LOAD"KZD");SJD
这句代码中(LOAD"KZD");SJD是什么意思？？
高手路过的都来看啊！！急！！

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 墨梅雪姬的微博

菡萏 发表于 2013-5-17 11:57:43

菜单文件中的调用语句，意思是先加载程序kzd,然后发出命令SJD

lidaxiu 发表于 2013-5-17 12:55:45

KZD就是三角点（SJD）的真正源程序

墨梅雪姬 发表于 2013-6-6 17:52:55

本帖最后由 墨梅雪姬 于 2013-6-6 17:55 编辑

lidaxiu 发表于 2013-5-17 12:55 http://bbs.mjtd.com/static/image/common/back.gif
KZD就是三角点（SJD）的真正源程序

(defun c:HP()
    (command "bhatch" "p"HP"")
) 你帮我看看这个调用命令，为什么不能执行啊？
谢谢。。。
这是一个屏幕菜单的调用命令，点击后，显示_HP未知命令

lidaxiu 发表于 2013-6-6 20:14:50

(command "hatch" "p" "hp" "" "" "")

lidaxiu 发表于 2013-6-6 20:21:47

这样ok了吧

lidaxiu 发表于 2013-6-7 12:43:54


微博评论 发表于 2013-6-7 15:11:53

转发微博\n\nhttp://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 来自 宋亚凤5 的新浪微博

墨梅雪姬 发表于 2013-6-9 18:47:15

lidaxiu 发表于 2013-6-6 20:14 static/image/common/back.gif
(command "hatch" "p" "hp" "" "" "")

可以了，谢谢哦！！

墨梅雪姬 发表于 2013-6-10 10:46:43

lidaxiu 发表于 2013-6-6 20:14 static/image/common/back.gif
(command "hatch" "p" "hp" "" "" "")

;;;绘制地面配电线
(defun c:PDX()
(setq ss '());给ss初始值空表()
(setq M (getint"\n输入比例尺分母:"))
(while (setq point0 (getpoint"\n输入杆位或方向:"))
    (setq ss (cons point0 ss));结果获得一组点表
)
(setq n (length ss) i 0)
(repeat (- n 1)
    (setq pt1 (nth i ss))
    (setq pt2 (nth (+ i 1) ss))
    (command "units" 2 3 4 5 "0r" "n" "");单位设置(角度以弧度为单位)
    (setq alf (angle pt1 pt2));注意系统必须设置为弧度单位
       (cond ((= M 500)(setq c 0.5 ))
             ((= M 1000)(setq c 1 ))
             ((= M 2000)(setq c 2 ))
       )
    (command "insert" "dg1" Pt1 c c alf);插入图块dg1
    (command "insert" "dg2" Pt2 c c alf);插入图块dg2
    (setq pt3(polar pt1 alf (* c 4)) pt4(polar pt2 (+ alf pi) (* c 4)))
    (command "color" 3 "line" pt3 pt4 "");画绿色线
    (setq i (+ i 1))
)
(command "units" 2 3 1 5 "0r" "n" "");;恢复到默认的单位设置
)


杆位或方向不能输入，帮忙看看怎么回事，谢谢！！
页: [1] 2
查看完整版本: 高手帮忙啊！！！