马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 sachindkini 于 2018-7-24 17:40 编辑
Dear All,
Pleas check lisp not working
[Actionscript3] 纯文本查看 复制代码 (defun c:RM (/ roomname roomsz)
(defun roomname ()
(textpage)
(princ "\nROOMNAME OPTIONS: ")
(princ "\n\t Living Kitchen Bed Toilet ")
(princ " \n\t Office SHop STore STUdy ")
(princ "\n\t Dining Puja BAth Wc = WC ")
(princ
"\n\t LIft = LT LObby S.toi. Living/dining = LD "
)
(princ " \n\nPress any key to return to your drawing ")
(grread)
(princ "\r ")
(graphscr)
) ;End of roomname
(defun roomsz
(/ p1 p2 p3 p4 x x1 y y1 tx h ht1 rm op pl pm tm ft rsz pll)
(sharad)
(if (null txlay)
(progn (setq txlay "tx")
(setq txlayer (tblsearch "layer" txlay))
(if (null txlayer)
(progn (setq txlay (getstring "\nLayer name for TEXT : "))
( Setq txclr
(getstring (strcat "\nColor for " txlay " layer: "))
)
(command "layer" "m" txlay "c" txclr "" "")
)
(prompt "\nTEXT ON TX LAYER")
)
)
)
(setvar "osmode" 32)
(menucmd "p0=filters")
(menucmd "p0=*")
(if (null ht)
(setq ht "250")
)
(setq p1 (getpoint "\nPick room corner: ")
P2 (getcorner p1 "\nPick Diagonally opposite corner: ")
p3 (list (car p2) (cadr p1))
p4 (list (car p1) (cadr p2))
a (distance p1 p3)
b (distance p1 p4)
x (* 0.001 a)
y (* 0.001 b)
x1 (rtos x 2 2)
y1 (rtos y 2 2)
mt (strcat x1 "x" y1)
)
(setq ix (cvunit x "meter" "inch")
iy ( Cvunit y "meter" "inch")
xf (rtos ix 4 0)
yf (rtos iy 4 0)
ft (strcat xf "x" yf)
)
(PROMPT "\nENTER FOLLOWING KEYWORD OR TY FOR TYPE")
(setq cnt T )
(while cnt
(initget 1
(strcat "Living Kitchen Bed Toilet "
"Office SHop STore STUdy "
"Dining Puja BAth WC TY ? "
"LT LObby S.toi. LD "
)
)
(setq rm
(getkword
"\nROOM NAME = Liv/Bed/Kit/Toi/Off/Din/SHop/BAth /WC/STore/STUdy/S./LT/LD/LO/TYpe/?:"
)
)
(if (/= (type rm) 'LIST)
(if (= rm "?")
(progn (roomname) (
Setq cnt T)) (progn
(setq cnt nil)
(if (= rm "LT")
(setq rm "LIFT")
)
(if (= rm "LD")
(setq rm "living/dining")
)
(if (= rm "WC")
(setq rm "WC")
)
(IF (= rm "TY")
(setq rsz (strcase (getstring t "\nTYPE ROOM NAME: ")))
(setq rsz (strcase rm))
)
)
)
(setq cnt nil)
)
)
(setq
tm (strcase (getstring (strcat "\nENTER TEXT HEIGHT <" ht ">:"))
t
)
)
(if (/= tm "")
(setq ht tm)
)
(setq h (atof ht)
ht1 (* h 0.88888)
dt (* h 1.7)
)
(setvar " Osmode" 0)
(setvar "orthomode"1)
(setq ht1 (fix ht1))
(setq pc (polar p1
(angle p1 p2)
(/ (distance p1 p2) 2)
)
pm (polar pc
(* pi 1.5)
(/ h 3.55)
)
pt (polar pc (/ pi 2) dt)
pf (polar pc (* pi 1.5) dt)
)
(command "layer" "t" txlay "on" txlay "s" Txlay
"" "text" "s" "rD" "m" pt h "0"
rsz
)
(setq pm2 (getpoint pm "\nENDPOINT OF TEXT: ")
PM1 (polar pm pi (distance pm pm2))
pf1 (polar Pf pi (distance pm pm2))
pf2 (polar pf 0 (distance pm pm2))
)
(command "text" "s" "rs" "f" pm1 pm2 ht1 mt "text" "f"Pf1 pf2 ht1
ft)
)
(defun readata ()
(setq roomname (nth (atoi (get_tile "roomn")) roomlist)
Lay1 (nth (atoi (get_tile "lay1")) laylist)
txth1 (atoi (get_tile "txth1"))
txts1 (nth (atoi (get_tile "txts1")) txtslist)
lay2 (nth (ato_get_tile "lay2")) Laylist)
txth2 (atoi (get_tile "txth2"))
txts2 (nth (atoi (get_tile "txts2")) txtslist)
prec (atoi (get_tile "prec"))
lsc (atoi (get_tile "lsc"))
txth3 (get_tile " Txtth3")
txts3 (nth (atoi (get_tile "txts3")) txtslist)
lay3 (nth (atoi (get_tile "lay3")) laylist)
alter (= (get_tile "alter") "1")
sqmt (= (get_tile " Sqmt") "1")
sqft (= (get_tile "sqft") "1")
txtway (= (get_tile "txtway") "Vertical")
Ang (read (get_tile "ang"))
)
)
(defun showlist ()
(setq roomlist '("living" "kitchen" "bedroom" "toilet")
laylist '("Layer-1" "Layer-2" "Layer -3" "Layer-4" "Layer-5")
txtslist '("Style-1" "Style-2" "Style-3" "Style-4" "Style-5")
)
(start_list "roomn")
(mapcar 'add_list roomlist)
(end_list)
(start_list "lay1")
(mapcar 'add_list laylist)
(end_list)
(start_list "txts1")
(mapcar 'Add_list txtslist)
(end_list)
(start_list "lay2")
(mapcar 'add_list laylist)
(end_list)
(start_list "txts2")
(mapcar 'add_list txtslist)
(end_list)
(start_list "lay3")
(mapcar 'add_list laylist)
(end_list)
(start_list "txts3")
(mapcar 'add_list txtslist)
(end_list)
(set_tile "roomn" "0")
(set_tile "lay1" "0")
(set_tile "txts1" "0")
(set_tile "lay2" "1")
(set_tile "txts2" "1")
(set_tile "lay3" "2")
(set_tile "txts3" "2 ")
(set_tile "txth1" "250")
(set_tile "txth2" "250")
(set_tile "Txtth3" "250")
(set_tile "prec" "2")
(set_tile "lsc" "1.000")
)
(if (> (setq dcl_id (load_dialog "room")) 0)
(progn (if (new_dialog "room" dcl_id "")
(progn (showlist)
(action_tile "accept" "(readata) (done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq re (start_dialog ))
)
(alert "Unable to display dialog box!")
)
(unload_dialog dcl_id)
)
(alert "Unable to load dialog box!")
)
(if (= re 1)
(progn
;add
)
)
[Actionscript3] 纯文本查看 复制代码 dcl_settings : default_dcl_settings { audit_level = 3; }
room : dialog {
label="Room Name & Size Setup";
:row {
:boxed_column {
label="Room Name Setting";
:popup_list{label=" Room Name :";key="roomn";edit_width=10;list="";}
:popup_list{label="Layer:";key="lay1";edit_width=10;list="";}
:edit_box{ Label="Text Height:";key="txth1";edit_width=10;list="";}
:popup_list{label="Text Style:";key="txts1";edit_width=10;list=""; }
}
:boxed_column {
label="Room Size Setting";
:popup_list{label="Layer:";Key="lay2";edit_width=10;list="";}
:edit_box{label="Text Height:";key="txth2";edit_width=10;list="";}
:popup_list{label="Text Style";key="txts2";edit_width=10;list="";}
:edit_box{label="Precision:";key="prec"; edit_width=10;list="" ;}
:edit_box{label="Liner Scale Factor";key="lsc";edit_width=10;list="";}
}
}
:row{
:boxed_column{
label="Alternet Room Size Setting";
:edit_box{label ="Text Height:";key="txth3";edit_width=10;}
:popup_list{label="Text Style:";key="txts3";edit_width=10;}
:popup_list{label="Layer:"; Key="lay3";list="";edit_width=10;}
:toggle{label="Alternet Unit:";key="alter";edit_width=10;value="0";}
}
:column{
:row{
:boxed_column{
label="Area";
:toggle{label="Area in SqMt.";key="sqmt";value="0";}
:toggle{label="Area in SqFt.";key="sqft";value="0";}
}
:boxed_column{
label="Text Rotation";
key="txtway";
:radio_column{
:radio_button{label"Horizontal";key="hor";}
:radio_button{label="Vertical";key="ver" ;}
}
:edit_box{label="Angle";key="ang";}
}
}
spacer;
ok_cancel;
}
}
}
| 
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园
( 辽ICP备15016793号 )
窥视卡
雷达卡
已领礼包: 
财富等级: 
发表于 2018-7-24 17:26:23
提升卡
置顶卡
沉默卡
变色卡
千斤顶
发表于 2018-7-24 17:28:38
